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PREl'ACE 


Because  of  the  vast  amount  of  ALr  Force  resources  devoted  to 
maintenance  activities  at  base  level  and  the  relationship  between  these 
activities  and  operational  effectiveness,  RAND  has  undertaken  a  number 
of  studies  that  examine  way.s  of  Improving  maintenance  management. 

The  Base  Ope rat ions -Maintenance  iimulator  (BOMS),  described  in 
this  Memorandum,  was  developed  in  connection  with  one  of  tluise  studies, 
known  as  Logistics  Problem  IV  (LP-IV).  A  significant  portion  of  the 
LP-IV  methodology  involved  the  construction  of  a  num-machine  simulation 
model.  As  the  work  progressed,  however,  it  became  clear  that  this  type 
of  litimulation  could  not  answer  all  the  luestions  we  wished  to  ask. 
Therefore,  the  BOMS,  in  all -computer  simulation,  was  constructed  to 
supplement  the  man-machine  simulation. 

This  Memorandum  describes  the  simulator  at  two  levels.  The  main 
body  contains  a  word  description  and  a  se;  of  flow  charts  of  the  simu¬ 
lator's  essential  characteristics.  A  detailed  and  technical  description, 
intended  primarily  for  potential  user?  of  the  simulator,  appears  in 
the  Appendix.  The  kinds  of  studies  presentl>  under  vay,  which  will  be 
presented  in  a  subsequent  Memo randum ,  are  enumerated  in  the  Introduction. 

This  Memorandum  should  be  of  interest  to  personnel  at  Headquarters 
USAF  concerned  with  research  and  development  of  base  maintenance  policies, 
and  to  operating  coninands  concerned  with  short  range  planning. 
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SUMMARY 


The  computer  program,  described  below,  the  Base  Operations -Main¬ 
tenance  Simulator  (BOMS) ,  simulates  the  essential  chcracterlstlcs  of 
an  Air  Force  Base  -  ts  present  form  It  represents  a  SAC  B-52/KC-135 

organization,  but  It  can,  with  slight  modifications  represent  most  other 
8 Ingle -base  operations. 

To  study  complex  base  maintenance  management  systems,  analytical 
techniques  (e.g.,  linear  and  dynamic  programming  queueing  theory)  are, 
as  yet,  of  limited  use.  Simulation  techniques,  on  the  other  hand  show 
greater  promise.  Not  only  do  they  afford  better  understanding  of  such 
systems,  but  also  they  can  predict,  with  relatively  high  degrees  of 
confidence,  how  a  system  will  react  to  various  changes  such  as  variations 
in  policies  (decision  rules)  or  in  levels  of  resources  (sensitivity 
tests).  We  are  presently  using  the  BOMS  to  study  both  these  kinds  of 
changes.  We  are  exploring  wtxys  of  improving  the  effectiveness  of  the 
base  at  little  or  no  added  cost,  or  maintaining  tne  effectiveness  at 
reduced  cost.  This  simulation  technique  allows  us  to  look  at  long 
periods  of  simulated  activity  and  also  supplies  certain  output  data 
which  cannot  be.  obtained  from  present  base  data  systems. 

Three  separate  computer  programs  make  up  the  BOMS:  the  Data  Gener¬ 
ator  combines  a  flying  schedule  with  random  failures,  generated  by  a 
Monte  Carlo  process,  and  with  the  resources  required  for  repair.  This 
data,  along  with  input  parameters  describing  pertinent  characteristics 
of  the  base,  is  fed  to  the  Main  Program.  Tlie  Main  Program  simulates, 
in  great  detail,  ciic  minute-by-minute  activities  of  the  base.  Then  the 
Analysis  Program  summarizes  the  output  of  the  Main  Program  and  prints 
the  reports. 

The  body  of  this  Memoran'^um  desdribes  in  general  terms  each  of 
these  programs.  The  Appendix  provides  technical  details. 
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I.  INTRODUCTION 

The  Base  Operations -Maintenance  Simulator  (BOMS)  is  a  computer 

★ 

program,  written  in  the  SIMSCRIPT  language,  which  simulates  the 
principal  characteristics  of  an  Air  Force  aircraft  base.  It  was 
written  as  a  part  of  LP-IV  for  use  in  RAND's  studies  of  base 
maintenance  policies. 

The  main  body  of  this  Memorandum  is  intended  for  those  who  wish 
to  know  what  the  simulator  Is,  what  basic  assumptions  it  makes  in 
attempting  to  model  the  real  world,  and  what  are  some  of  the  purposes 
to  which  the  model  may  be  put.  A  more  detailed  knowledge  of  the 
Inner  workings  of  the  simulator  can  be  gained  from  the  Appendix. 

We  shall  not  discuss  the  advantages  and  pitfalls  of  simulation, 
other  than  briefly  to  indicate  why  we  chose  simulation  as  our  princi¬ 
pal  tool  for  investigating  base  maintenance  management.  Two  charac¬ 
teristics  of  any  management  problem  make  analytical  and  Judgmental 
solutions  very  difficult  to  obtain.  These  are: 

’•  A  large  number  of  relevant  (i.e.,  having  a  non-trivial  effect 
on  the  system)  factors  which  interact  with  each  other  in  a  complex 
manner . 

2.  A  numbe:  of  elements  in  the  system  whose  behavior  is  stochastic 
(i.e.,  varying  with  time  in  some  non-fixed  manner). 

Base  maintenance  management  generously  exhibits  both  these  character¬ 
istics.  Just  two  examples  of  many  for  Che  first  condition  are:  the 
interactions  between  such  factors  as  operational  plans  (e.g.,  flying 
schedules)  and  levels  of  available  resources  (e.g.,  men  and  parts); 
or  among  shift  policies  (e.g.,  overtime,  time  of  shift  change), 
specialist  dispatch  rules,  and  levels  of  available  resources.  Ex¬ 
amples  of  Che  second  condition  are  "break-rates"  (i.e.,  frequency  of 
malfunctions) ,  the  time  required  Co  fix  various  malfunctions,  and 
flight  lengths.  As  a  result,  we  feel  that,  for  Che  range  of  problems 
we  wish  Co  investigai-e ,  simulation  appears  Co  be  the  most  useful 


h.  M.  Markowitz,  B.  Hausner,  H.  W.  Karr,  SIMSCRIPT;  A  Simulation 
Programming  Language.  The  RAND  Corporation,  RM-3310-PR,  November  1962. 
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I.  K.  Cohen,  Design  and  Oblectives  of  Laboratory  Problem  IV, 
The  RAND  Corporation,  Rh-3354-tR,  January  1963. 
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technique.  We  might  add  that  purely  analytical  solutions  to  problems, 
%rlth  characteristics  as  in  1.  and  2.  above,  can  sometimes  be  obtained 
by  simplifying  assumptions.  These  assumptions  usually  neglect  the 
interactions  of  some  of  the  factors  and  Ignore  the  stochastic  behavior 
of  all  or  most  of  the  elements.  In  base  maintenance  management,  it 
is  unclear  what  assumptions  can  safely  be  permitted.  We  hope  Chat 
our  simulation  studies  lead  to  enhanced  understanding  of  the  probleb 
and  to  the  clear  determination  of  permissiblo  assumptions. 

In  addition  to  understanding  of  the  maintenance  system  gained  by 
building  and  using  Che  BOMS,  we  see  the  model  as  serving  the  following 
purposes: 

1.  A  tool  for  Investigating  the  effects  on  selected  measures  of 
performance,  such  as  turnaround,  cancellation  rate,  etc.,  of 
various  maintenance  policies,  and  operating  policies  which  interact 
with  the  maintenance  function.  For  example,  we  currently  use  the 
simulator  to  investigate  the  following  policies: 

a)  Assignment  of  aircraft  to  specific  missions.  The  policy 
in  question  here  is  how  much  in  advance  of  a  planned  mission 
should  the  specific  aircraft  be  assigned.  Assigning  the  tall 
number  irrevocably  one  week  or  more  in  advance  allows  advance 
planning  and  assures  equal  usage  of  all  aircraft,  but  assigning, 
say,  eight  hours  in  advance  may  give  more  flexibility,  allowing 
for  lower  cancellation  and  lateness  rates  and/or  less  pressure 

on  the  maintenance  organization. 

b)  Priority  dispatching  rules.  Regardless  of  how  much 
advance  planning  of  unscheduled  maintenance  is  attempted,  the 
problem  may  arise  as  to  which  of  the  malfunctions  (jobs)  waiting 
for  a  particular  resource  should  be  started  next.  This  problem 
arises  whenever  more  than  one  job  waits  for  a  resource.  If  the 
order  of  service  affects  performance,  it  is  important  to  find 
the  best  rule  for  assigning  priorities. 

c)  Scheduling  of  missions.  Much  of  the  workload  at  a  base 
occurs  when  aircraft  land  after  a  mission.  Judicious  assignment 
of  mission  times  may  level  the  peaks  in  manpower  requirements,  and 
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substantially  reduce  the  size  of  the  mainteiiance  force. 

The  results  of  these  and  other  experiments  discussed  belov 
will  be  documented  in  a  forthcoming  publication. 

Some  other  policies  which  could  be  investigated  with  the  BCMS 

are : 

d)  Shift  policy  e.g.  ,  when  to  use  overtime,  when  should 
the  shift  changes  take  place? 

c)  Cannibalization  --  e.g.,  what  is  its  value  and  when  should 
it  be  done? 

f)  Pre-emption  (i.e.,  stopping  work  on  one  job  in  order  to 
complete  another)  --  e.g.,  «diat  is  Its  worth  and  when  should  it 
be  done? 

2.  A  device  for  measuring  the  sensitivity  of  measures  of  base 
performance  to  change  In  selected  input  parameters.  Examples  of 
the  paraaseters  which  we  are  currently  studying  are; 

a)  Manpower  assignments .  Determining  an  efficient  manning 
is  a  many-sided  problem.  Not  only  can  the  total  number  of  men 
available  affect  perfonaince ,  but  the  diacribution  of  these  men 
among  the  different  shops  and  among  the  different  shifts  can  also 
be  Is^ortant .  We  are  currently  using  the  BCMS  to  determine  the 
effects  of  various  mannings. 

b)  Supply  fill -rate.  The  fill -rate  (i.e.,  the  percentage  of 
supply  demands  that  can  be  m^t  Itmeedistely  upon  demand)  is  affected 
not  only  by  supply  levels  but  also  by  the  "pipeline"  tisM  (the  time 
it  takes  to  replace  a  part  either  by  repair  at  base  or  resupply 
from  ths  liopci) .  We  are  currently  studying  the  ■'fleets  of  variation 
In  thl#  f III  rate . 

c)  Manpower  skills  Since  our  model  diet tnguf  »i.es  between 
vorkrrs  on  the  basis  of  skill  ,  ve  cen  amesare  the  extent  to  which 
substituting  unskilled  for  skilled  personnel  is  economical 

d)  Flvln-?  frograa.  Here  we  wish  to  determlt^e  the  effects  of 
various  chatiges  in  the  flying  program,  such  as  changes  in  the  nueiber 
of  training  flights  or  changes  In  the  level  of  ground  and  airborne 
alert,  and  certain  coehlnations  of  tlw*  above  variations. 
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Other  kinds  of  sensitivity  tests  that  might  be  performed  with 

this  simulator  are  investigation  of  the  effects  of  delays 

delays  in  starting  work  on  a  job  or  delays  caused  by  prc-emptlor. 

or  cannibalization) ,  or  changes  in  the  malfunction  rates. 

3.  The  prototype  of  a  planning  tool  for  use  in  the  day-to-day 

operations  of  an  aircraft  base.  In  this  application,  the  model 

would  estimate  the  ability  of  the  maintenance  organization  to 

support  a  given  flying  program  and  anticipate  trouble  spots  or 

bottlenecks.  The  use  of  simulation  as  an  "on-line"  planning  tool 

has  roused  much  interest,  and  in  at  least  one  case,  was  employed 
* 

in  industry.  In  an  Air  Force  environment,  the  BOMS  could  be 
used  to  answer  questions  with  more  speed  and  accuracy  than  either 
"back-of -the-envelope  calculations"  or  intuition.  Some  of  these 
questions  are: 

a.  Given  the  proposed  flight  schedule  and  available  resources 
for  the  coming  period,  when  and  where  are  the  trouble  spots  likely 
to  occur? 

b.  What  are  the  consequences  of  proposed  changes  in  the 
flight  program? 

c.  What  are  the  consequences  of  proposed  changes  in  resource 
av^ailabilities,  where  the  changes  can  be  either  variations  in  time 
(a.g.,  changing  the  distribution  of  men  amongst  shifts)  or  varia¬ 
tions  in  the  levels  of  availability. 

d.  When  are  the  low  activity  periods  likely  to  occur? 

During  these  periods  manpower  may  be  utilized  in  other  activities, 
such  as  training,  bench  repair,  and  miscellaneous  details. 

The  principal  advantage  of  using  the  simulator  as  a  planning  tool 
is  that  it  predicts  the  future,  a  f’r  more  useful  function  than  ana¬ 
lyzing  the  past.  Prediction  permits  quick  and  inexpensive  insights 
into  the  effects  of  policy  changes  and  resource-allocation  changes, 
and  pinpoi.nts  potential  trouble  spots  before  they  occur.  To  ful¬ 
fill  all  these  purposes  requires  a  device  with  flexibility.  The 


Earl  LeGrande,  "The  Development  of  a  Factory  Simulation  Using 
Actual  Operating  Data,"  Management  Technology.  Vol.  3,  No.  1, 

May  1963,  pp.  1-19. 


design  of  the  simulator  and  the  structure  of  the  SIMSCRIPT  language  are 

the  two  factors  that  create  the  required  flexibility.  TSie  simulator  is, 

to  a  degree,  modular  so  that  chosen  blocks  of  logic  representing  decision 

rules  can  be  lifted  out  an<i  replaced  the  policy  to  be  tested.  The 

schedule  of  missions,  the  principal  driving  force  of  the  simulation, 

is  an  input  readily  changed  by  the  user.  The  input  parameters  describing 

the  base  and  some  of  the  characteristics  of  itf  operation  (for  example, 

the  number  of  aircraft,  the  number  of  each  type  of  personnel  available, 

and  whether  missions  are  assigned  tc  a  particular  aircraft  far  in  auvince 

or  immediately  preceding  the  missions)  are  simply  punched  on  cards  by 

the  user  prior  to  running  the  simulator. 

As  the  main  body  of  this  report  shows,  the  simulator  is  a  highly 

detailed  representation  of  a  base.  Perhaps  we  incorporated  trivia. 

But  we  felt  that  certain  details  absent  from  other  models  (e.g., 

bench  repair  and  pre-emption)  should  be  incorporated  because  of  their 

* 

remotely  possible  effects  on  our  simulations.  Other  RAND  models, 
like  BOMS,  are  simulators  of  base  activities.  But,  inasmuch  as  they 
they  were  built  for  different  purposes,  and  have  different  levels  of 
aggregation,  they  are,  in  effect,  different  models.  This ,  plus  the 
following  considerations,  largely  determined  the  make-up  of  the 
simulator. 

1.  It  was  not  clear  in  all  cases  which  characteristics  of  the  real 
world  we  could  leave  out  or  abstract  without  affecting  the  validity 
of  the  outputs. 

2.  In  order  to  make  the  model  useful  as  a  planning  tool  and  for 
investigating  a  wide  range  of  policies,  we  chose  to  incorporate 
into  the  model  many'  characteristics  of  base  operations. 

3.  In  order  to  avoid  an  extensive  data  collection  effort,  we 
ciecideJ  to  use  the  data  already  collected  for  the  LP-IV  man-machine 
simulation.  If  it  was  to  be  used  as  input  without  substantial 
scaling  and  aggrejiating,  the  model  would  have  to  accommodate,  itself 
to  the  data. 

* 

T.  C.  Smith,  SAMiiOM:  Support-Availability  Multi-System  Operations 
Model .  The  RAND  Corporation,  RM-4077-PR,  May  1964j  R.  A.  Levine,  and 
R.  B.  Rainey,  The  Base  Maintenance-Operations  Model  Used  in  RAND  Logistics 
Research.  The  RAND  Corporation,  RM-2374-FR  (DDC  No.  AD  220605),  May  1959. 
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For  a  number  of  reasons,  the  simulation  process  was  broken  into 
three  separate  programs:  the  Data  Generator  Program,  the  Main  Program, 
and  the  Analysis  Program.  The  sire  of  the  model  and  the  dimensions  of 
the  planned  experiment  (e.g.,  number  of  shops,  aircraft,  parts,  etc.) 
were  such  that  one  large  program  would  have  exceeded  our  computer 's 
r^mory.  In  addition,  there  were  several  advantages  to  the  division 
of  programs.  The  design  of  some  of  the  experiments  required  using  the 
same  input  data  for  many  runs.  Generating  the  data  in  a  separate  program 
obviated  the  need  for  regenerating  this  data  each  time  a  run  was  made, 
thus  saving  much  computer  time.  Performing  the  analysis  in  a  separate 
routine  allows  changes  in  final  outputs  without  rerunning  the  Main 
Program. 

The  simulator  works  by  accepting  a  data  tape  containing  the  flying 
schedule  and  all  the  pertinent  data  of  the  malfunctions  which  are  to 
occur  on  each  sortie.  This  data  tape  may  be  generated  in  any  manner 
the  user  chooses,  but  must  have  a  specific,  format.  In  this  data 
generation  the  Monte  Carlo  sampling,  or  the  drawing  against  probability 
distributions,  can  be  done.  The  main  simulator  uses  this  data,  along 
with  its  built-in  rules,  to  “play  through"  the  various  events  in  the 
life  history  of  each  sortie.  As  each  of  these  events  occurs,  a  message 
is  written  on  an  "analysis"  tape  telling  what  the  event  is,  what  time 
it  occurred,  and  what  is  the  state  of  certain  pertinent  variables. 

This  analysis  tape  can  then  be  fed  to  another  program  which  analyzes 
the  results  in  various  ways.  The  main  body  of  this  report  describes 
each  of  these  three  programs  in  more  detail. 
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II »  THE  DATA  GENEBATOR  PROGRAM 


f 
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The  Data  Generator  Program  supplies  data  for  the  Main  Program. 

It  creates  an  Exogenous  Events  Tape  which  carries  exogenous  events 
(e.g.,  "training  mission**)  ,  the  time  the  event  occurs  (e.g. ,  "Day  5.24"), 
and  the  details  of  the  malfunctions  during  the  event  (e.g.  ,  "Non-critical 
part  95  fails  at  the  end  of  preflight  and  requires  two  skilled  men  from 
shop  5  to  spend  1  hour  and  30  minutes  to  remove  and  replace") .  This 
tape  starts  the  simulation,  starts  the  chain  of  events  associated  with 
each  sortie,  and  finally  ends  the  simulation. 

The  Program  generates  data  in  three  steps: 

Step  1,  Failure  Generation .  supplies  malfunctions  for  each  sortie 
by  random  sampling  techniques.  Information  for  each  malfunction  in¬ 
cludes  time  of  discovery,  time  to  fix,  resources  required,  criticality, 
etc. 

Step  2,  Merge  1^,  combines  malfunctions  with  resources  needed  for 
repair  (including  bench  resources  when  appropriate) . 

Step  3,  Merge  2 ,  combines  the  results  of  Merge  1  with  the  flying 
schedule  deck.  Each  card  in  the  flying  schedule  deck  contains  type 
of  aircraft,  aircraft  number,  type  of  sortie,  special  inspection  (if 
any).  If  the  sortie  is  a  ground  alert,  the  card  also  contains  the 
number  of  days  spent  on  ground  alert,  and  the  "exercise  days"  for  the 
plane  during  its  ground  alert. 

The  Exogenous  Events  Tape  may  be  used  as  long  as  flying  schedule 
and  failure  rates  remain  unchanged.  To  change  either  of  these  requires 
a  new  tape.  A  change  in  the  flying  schedule  requires  a  rerun  of  Merge 
2.  A  change  in  failure  rate  necessitates  rerun  of  both  Merge  1  and 
Merge  2,  but  flying  schedule  cards  can  remain  the  same.  A  user  may 
write  his  own  Exogenous  Events  Tape  provided  the  output  harmonizes 
with  the  format  shown  on  page  35  of  the  Appendix, 

In  simulating  a  SAC  B-52./KC-135  squadron,  preparing  the  input 
data  was  a  major  undertaking..  Using  forms  from  the  Air  Force  data 
collection  system  we  collated  and  summarized  probability  distributions 
for  each  of  the  975  parts  on  both  aircraft.  These  distributions  give 
the  probability  of  failure,  type  of  action  required  (repair  in  place, 
remove  and  replace,  etc.),  probabilities  of  man-hours  required  for 
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repair,  disposition  of  the  .'art  (discard  or  save  and  repair),  etc. 

The  Air  Force  data  collection  forms  also  informed  us  about  resources 
required  to  repair  each  part.  Team  size  (or  its  effective  equivalent, 
clock  hours)  does  not,  however,  appear  on  current  forms.  For  this 
important  data  we  relied  on  expert  opinion. 

Inherent  in  this  method  is  one  important  assumption  --  that 
malfunctions  occur  independently.  To  obviate  this  assumption,  the 
user  would  have  to  perform  an  additional  simulation  prior  to  the 
Main  Program  in  order  to  generate  sets  of  dependent  malfunctions. 
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III.  THE  MAIN  PROGRAM 

The  Main  Program  sltmilates  in  great  detail  the  minute  activities 
of  an  air  base.  The  failure  of  aircraft  parts,  the  activities  of  shop 
personnel,  as  well  as  the  flights  of  each  plane  fall  within  its  scope. 
Associated  with  each  flight  is  a  list  of  events  —  unload  weapons, 
preflight,  fly,  postflight,  service,  download,  etc.  -**  which  may  occur 
on  any  particular  sortie.  Also  malfunctions  and  maintenance  may  occur 
as  in  the  real  world,  during  preflight,  at  the  end  of  preflight,  or 
at  the  end  of  postflight. 

Inputs  into  the  Main  Program  include  events  from  the  Exogenous 
Events  Tape  developed  by  the  Data  Generator  Program  plus  a  set  of 
input  parameters  such  as  the  number  and  kinds  of  parts  in  stock,  and 
the  time  required  to  deliver  a  part  from  the  depot.  (See  "Initial 
Conditions  Deck"  page  47  of  the  Appendix).  The  sortie  events,  read 
from  the  Exogenous  Events  Tape,  drive  the  simulator.  The  simulator 
creates  all  the  other  activities  in  the  life  of  the  sortie  endogenously, 
relying  in  part  upon  subroutines  which  perform  specific  tasks  when 
called  into  action.  Subroutines  include  "Start  team  action,"  "Stop 
maintenance,"  "Priority  of  part."  (See  "Explanation  of  Routines  in 
Simulator,"  page  55  of  Appendix.) 

Below  we  describe  the  action  of  this  simulator  by  first  tracing 
the  flow  of  aircraft,  then  the  flow  of  maintenance,  and  finally  by 
describing  other  key  features  of  the  model.  We  would  emphasize  that 
this  description  represents  only  our  present  program.  Innumerable 
changes  for  specific  decision  points  might  be  made  to  fit  unique 
conditions.  Some  of  these  we  outlined  in  the  Introduction. 

FLOW  OF  AIRCRAFT  < 

During  simulation,  the  first  routine  called  upon  is  the  Exogenous 
Event  START  which  sets  the  day  and  time  simulation  is  to  be  started 
and  places  the  proper  shift  of  mcin  in  the  shops.  (See  Fig.  1  for  a 
flow  chart  of  the  flow  of  aircraft.)  Subsequent  shift  changes  occur 
at  eight-hour  intervals  to  maintain  the  correct  manning  on  each  shift. 


START 
Set  day, 
shift  and 
•annlng 


READ  SORTIE  DATA 
Tall  No.  and 
Type  of  Sortie 


la  A/C  in 

^^ref light,  wait¬ 
ing  a  sortie,  flying 
w  or  on  ground 


READ  SORTIE  SATA 
Sortie  length.  Time  of 
sortie,  Malfanctions  & 
Requirement i  j 


Is 

A/C  standing 


Uplosd 
weapons  i f 
necessary 
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Loglc  of  Flow  of  Aircraft  Through  a  Sortie 
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As  sifflulated  cime  proceeds ,  each  sortie  ts  read  in  and  prepared 
for  flight.  The  program  assigns  aircraft  to  sorties  by  one  of  tvo 
methods:  tail  number  and  non-call  number.  In  "tail  number,"  if  the 
aircraft  whose  number  appears  on  the  sortie  notice  is  presently  in 
preflight,  waiting  for  a  sortie,  on  a  sortie,  or  on  ground  alert,  the 
new  sortie  is  inmediately  cancelled.  In  "non-tail  number"  the  aircraft 
number  is  ignored.  The  program  first  attempts  to  assign  the  newly  read- 
in  sortie  to  an  aircraft  which  is  of  the  correct  t)rpe,  has  the  proper 
weapon  configuration,  and  is  ready.  If  none  is  ready,  the  assignment 
goes  to  the  aircraft  most  nearly  ready  to  start  a  new  sortie.  In 
either  method,  if  the  assigned  aircraft  is  presently  ready,  preparation 
for  the  new  sortie  immediately  begins.  But,  if  the  aircraft  is  in  any 
other  state,  the  program  will  wait  until  the  latest  time  to  start  a 
preflight  and  will  again  att«npC  to  start  the  new  sortie.  At  that  time, 
if  non-critical  malfunctions  are  being  repaired,  they  can  be  stopped, 
but  work  on  critical  malfunctions  must  continue,  and  the  new  sortie 
cancelled . 

Loading  of  weapons  (an  upload),  if  necessary,  is  done  before 
preflight.  A  preflight  is  then  started,  requiring  the  time  specified 
by  an  input  parameter.  Malfunctions  may  be  discovered  and  work  started 
on  them  iiiiined lately,  if  possible,  either  1/3  or  2/3  of  the  way  through 
or  at  t!ie  end  of  the  preflight.  If  maintenance  on  a  preflight  mal¬ 
function  rontinues  past  sortie  time,  the  aircraft  will  sortie  imoiediately 
after  completion  of  maintenance.  However,  if  maintenance  is  still  in 
process  when  the  time  Co  cancel  the  sortie  arrives,  an  attempt  is  made 
to  sortie  the  aircraft  by  terminating  non-critical  malfunctions. 

Critical  malfunctions,  though,  will  cancel  the  sortie,  for  they  cannot 
be  stopped.  If  the  aircraft  sorties  with  non-critical  malfunctions 
outstanding,  these  malfunctions  will  be  fixed  at  the  end  of  this  sortie. 

The  aircraft  remains  on  its  sortie  the  required  time,  then  lands. 

If  the  .sortie  is  a  greund  alert,  malfurict  ions  will  b<*  discovered  and 
fixed  during  the  sortie.  After  the  sortie,  the  aircraft  is  serviced. 

In  the  case  of  a  ground  alert,  if  r.he  next  sortie  is  an  air  alert, 
no  service  is  necessary  and  the  aircraft  is  classified  in  standing 
(e.g.,  "ready  and  waiting").  If  the  next  sortie  after  ground  alert 
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Is  a  training  olaaion,  a  aervlcing  to  unload  fuel  la  required  before 
the  aircraft  la  put  In  a  atandlng  condition. 

After  aervlcing  of  an  air  alert  or  a  training  aortle,  the  aircraft 
haa  a  poatf light  Inapection  at  the  end  of  which  malfunctlona  may  be 
diacovered.  The  program  attempta  to  start  work  on  all  malfunctions 
after  a  specified  delay.  If  no  malfunctions  appear  during  postflight, 
the  airctaft  is  downloaoed  If  necessary.  At  the  end  of  the  last 
malfunction  or  at  the  end  of  the  download,  the  sortie  is  complete. 

The  next  sortie  if  it  has  been  read  in  then  begins.  Otherwise  the 
airctaft  goes  into  standing.  If  the  next  sortie  of  the  aircraft  is 
read  in  during  postflight  maintenance  and  if  no  critical  malfunctions 
are  cutstanding,  all  maintenance  on  the  aircraft  will  be  stopped  when 
it  becomes  necessary  to  start  this  sortie. 

FLOW  OF  MAIKTENANCE 

When  attempting  tc  start  work  on  a  malfunction  or  a  team  action 
(e.g.,  upload,  download,  or  service),  the  model  assumes  that  tiro 
types  of  resources  may  both  be  required  to  start  the  work: 

1.  The  "replaceable -in-time”  type  (i.e,,  parts) 

2.  The  "replaceable  inmediately"  type  (i.e.,  men) 

That  is,  when  a  part  is  consxuced  it  may,  in  time,  be  replaced 
by  fixing  it  or  by  shipment  ^rom  the  depot,  whereas  men  are  available 
immediately  upon  completion  of  their  current  work. 

When  starting  work  on  a  malfunction,  the  program  firat  checks  to 
see  if  the  required  part,  if  any,  is  available  (see  Fig.  2  for  chart 
showing  the  flow  of  maintenance).  If  not,  the  malfunction  is  filed 
in  a  queue  awaiting  that  part  or,  if  the  malfunction  is  critical, 
the  program  cannibalises  another  plane.  (See  'Hither  Features.") 

Whether  or  not  the  part  is  available,  the  program  checks  for 
the  availability  of  men.  Any  malfunction  may  require  any  number  of 
skilled  men  and/or  unskilled,  from  any  number  of  shops.  To  differentiate 
in  skill  we  let  shop  1  be  the  skilled  class  snd  shop  l>l  be  the  unskilled 
level.  All  the  required  men  must  be  sva liable  before  work  wjy  start  on 
a  Job.  If  unskilled  men  from  any  of  the  required  shops  are  unavailable, 
a  substitution  of  the  corresponding  ^killed  men  will  be  attempted. 


Fig.  2 
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J.f  substitution  is  not  possible  and  if  the  malfunction  is  critical, 
a  pre-emption  will  be  attempted.  Pre-emption  implies  that  work  will 
he  stopped  on  any  non-  critical  malfunctions  ol  a  lower  priority  if 
enough  of  the  proper  men  can  be  made  available.  "Other  Features," 
below,  gives  further  details.  If  enough  men  cannot  be  found  in  any 
of  the  shops,  the  malfunction  is  filed  in  the  queues  of  those  shops. 

When  men  become  available,  the  malfunctions  in  queues  are  removed  by 
any  desired  priority  rule,  and  work  is  started  on  them  if  enough  men 
and  parts  are  available. 

When  ooth  the  required  men  and  parts  are  available,  work  starts 
immediately  and  ends  :>fter  the  programmed  repair  time.  If  the 
maintenance  action  indicated  is  a  "remove  and  replace"  and  the  part 
is  designated  "reparable  on  the  base,"  the  part  is  sent  to  the 
proper  shop  for  bench  repair  (see  "Other  Features,"  "Bench  Repaii"), 
arriving  after  a  delay  specified  in  the  Initial  Conditions  Deck. 

If  the  part  is  not  base  reparable,  a  replacement  comes  from  the  depot, 
ax riving  after  its  specified  delay. 

OTHER  FEATURES 
Shift  Changes 

After  simulation  begins,  the  first  shift  is  caused  exogenously 
by  specifying  the  time  of  starting.  Subsequent  shift  changes  happen 
every  eight  hours.  The  Initial  Conditions  Deck  specifies  the  number 
of  men  in  each  shop,  on  each  of  three  shifts,  for  weekdays  and  weekends. 
Though  new  men  come  into  each  shop  and  the  old  men  leave,  in  some 
instances  maintenance  work  performed  by  men  already  in  the  job 
continues  past  a  shift  change.  Any  time  a  job  continues  past  a  shift 
change,  but  is  scheduled  to  end  before  an  initially  specified  overlap 
time,  men  already  on  the  job  continue  until  they  finish.  However, 
when  maintenance  is  scheduled  to  extend  beyond  the  overlap  time,  the 
men  :aay  or  may  not  work  overtime,  depending  on  the  type  of  job  and 
availability  of  new  men.  On  critical  malfunctions,  new  men  ai'e 
assigned  immediately  to  continue  the  work  without  interruption.  If 
enough  new  men  of  the  type  required  are  not  available  in  the  next 
shift-  the  old  men  work  overtime  until  the  critical  <ob  is  completed. 
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If  non-criCical  maintenance  or  bench  repair  extends  past  the  allowable 
overlap,  it  terminates  and  goes  to  its  proper  queue. 

After  all  the  shops  have  been  looked  at  in  this  termination 
^;rocess,  an  attempt  is  made  in  each  shop  to  use  any  remaining  new 
^n  to  start  work  on  jobs  in  the  queues.  In  all  attempts  to  assign 
idle  men,  flight-line  malfunctions  receive  priority  over  bench  repairs. 

As  described,  the  simulator  assumes  a  fixed  shift  manning  for 
the  whole  simulation,  but  will  allow  changing  the  number  of  men  in 
each  shop  on  any  shift(s)  during  the  simulation  by  insertion  of  an 
alternate  version  of  the  appropriate  routine. 

Supply  and  Bench  Repair 

Initial  stock  levels  for  each  part  are  specified  at  the 
start  of  simulation.  The  program  presently  assumes  at  least  one  of 
each  part  initially  available.  Draws  are  made  from  this  stock  for 
each  flight-line  malfunction  that  is  a  ’'remove  and  replace." 
Replenishments  to  stock  are  from  reparables  made  serviceable  by 
bench  repair  or  from  replacement  from  the  depot  for  items  that  were 
NRTS  (not  base  reparable),  condemned  or  consumed.  Bench  repairs 
always  require  exactly  one  man  from  the  proper  shop.  These  men  are 
completely  interchangeable  between  flight-line  work  and  bench  repair, 
but  flight-line  work  receives  a  higher  priority  when  queues  develop. 

Cannibal  i:::ation 

Cannibali7:ation  consists  of  removing  from  some  fictitious 
aircraft  an  out-of-stock  part  needed  for  a  critical  malfunction. 
Cannibalization  normally  starts  before  sortie  time  at  an  interval 
which  is  the  sum  of  six  hours  plus  double  the  normal  repair  time. 

If  discovery  of  the  malfunction  occurs  after  the  time  cannibalization 
should  have  started,  it  starts  inmediately .  When  the  part  finally 
becomes  available,  it  is  not  returned  to  stock;  this  simulates  the 
fact  that  the  part  would  normally  go  to  the  cannibalized  aircraft. 

Substitution 

Whenever  a  flight-line  malfunction  calls  for  more  unskilled  men 
than  are  available  at  the  time,  the  program  substitutes  skilled  men  if 
enough  are  available.  Substitution  of  unskilled  for  skilled  is  not 
permitted . 
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Pre-emption 

Pre-emption  occurs  «hea,  during  a  critical  malfunction,  sub¬ 
stitution  fails  to  find  enough  men.  The  simulator  first  pre-empts 
bench  repairs.  If  this  does  not  find  enough  help,  the  simulator 
pre-empts  flight-line  repairs  in  the  order  of  priority  until  enough 
men  are  found,  reassigns  men  who  are  idled  by  the  pre-empting,  and 
adds  a  delay  to  the  job  which  caused  the  pre-emption. 

Cancellations 

For  each  of  the  these  types  of  sorties  (training,  air  alert, 
ground  alert),  the- progratn  ai lows  for  specification  cf  maximum 
allowable  lateness  after  wl»lc.h  the  sortie  cancels,  tffien  a  sortie 
cancels  before  preflight-,  the  program  ignores' tboee  malfunctions 
which  would  have  been  discovei-td  during  pre.fi ig!it.-  But  if  the 
pref light  occurs,  the  preflight-dSscovered  malfunctions  are  fixed 
even  though  the  sortie  cancels,  .  In  neither  case  dees  the  simulator 
attend  to  malfunctions  prograireoed  for  discovery  during  postflight. 

Planes  with  only  non-criticai  malfunctions,  fly  their  sorties. 
The  program  checks  criticality  at  two  times:  at  the  latest  time 
a  preflight  may  begin  and/or  cancel  time.  If  at  either  of  these 
times  the  plane  has  no  outstanding  critical  malfunccions ,  it  flies 
a  sortie,  and  all  remaining  malfunctions  are  designated  postflight 
malfunctions  on  this  sortie. 
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IV.  THE  ANALYSIS  PROGRAM 

In  this  section  we  present  our  Analysis  Program.  Additionally 
we  would  like  to  suggest  to  the  reader's  imagination  the  enormous 
potential  for  other  analyses  offered  by  the  flow  o2  data  cascading 
out  of  the  Main  Program. 

Every  change  of  every  variable  is  recorded  on  the  analysis  tape. 
Further,  the  Analysis  Program  can  be  set  to  prepare  reports  on  any 
list  of  variables  at  any  intervals  of  time  selected  by  the  user.  This 
bulk  of  data  thus  available  for  accumulation,  collation,  comparison, 
and  analysis  suggests  the  wide  spectrum  of  applications  accessible  to 
the  needs  and  interests  of  diverse  users.  This  program  amply  dcnson- 
strates  that  feature  of  simulation  which  permits  programming  outputs 
vdiich  would  be  unavailable  from  real-world  data  systems. 

Our  own  analysis  consists  of  a  set  of  reports  divided  Into  the 
following  subject  groups: 

1.  "Shop  Statistics"  summarizes  various  activities  in  each  of 
the  shops.  The  statistics  on  malfunctions  and  reparables  waiting 
indicate  delays  which  the  work  encounters  at  each  shop.  The  over¬ 
time,  substiD.itions  and  number  of  pre-empts  show  the  extent  of  special 
measures  taken  to  complete  jobs.  Detailed  explanations  of  this  report 
and  all  other  reports  appear  on  page  21. 

2.  "Aircraft  Statistics"  indicates  the  amount  ot  maintenance 
generated  on  each  aircraft  (No,  of  Maint.  Malfns.)  the  amount  of 
maintenance  delayed  for  lack  of  men  (No.  of  Man  Malfns.)  and  for  lack 
of  parts  (No.  of  Part  Malfns.). 

3.  "Aircraft  Status"  shows  the  number  of  hour.s  spent  by  each 
aircraft  in  each  of  t!ie  possible  statuses. 

4.  "Shop  Utilization"  lists  man-hours  used  and  the  per  cent 
utilization  for  each  shop  during  each  shift. 

5.  "System  Statistics"  presents  a  selection  of  measures  relating 
to  the  base  as  a  whole,  such  as  number  of  late  and  cancelled  sorties, 
turnaround  times,  operational  ready  rates,  and  others. 


-20- 


A  sample  set  of  thesf.  reports  follows.  Bjfore  each  computer 
output  is  a  list  of  explanations  for  the  terms  which  might  not  be 
self-explanatory.  On  page  68  of  the  Appendix  is  a  complete  list  of 
the  inputs  for  these  reports. 
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SHOP  STATISTICS 


Shop  No.  --  Odd-numbered  shops  represent  the  skilled  men  in  a 
particular  shop,  and  the  succeeding  even-number  represents  the 
unskilled  men  in  the  same  shop. 

Malfunctions  Awaiting- Average  --  The  average  number  of  malfunc¬ 
tions  (excluding  bench  repairs)  waiting  at  this  shop.  This  number  is 
averaged  over  the  time  since  the  last  report,  as  are  all  averages  in 
all  reports. 

Overtime  Reg.  --  The  number  of  man-hours  of  overtime  (keeping 
men  past  their  normal  shift  departure)  expended  in  this  shop. 

Overtime  Extra  --  The  number  of  man-hours  of  overtime  used  as  a 
result  of  the  normal  shift  manning  not  being  large  enough  to  fix 
certain  malfunctions.  In  a  sense,  this  represents  the  men  called  in 
to  work  on  a  shift  other  than  their  regularly  assigned  shift. 

No.  of  Men  Substituted  --  Ihe  total,  over  the  current  period,  of 
the  number  of  men  supplied  to  this  shop  by  substitution.  The  negative 
numbers  in  the  skilled  shops  represent  the  skilled  personnel  used  as 
unskilled  labor. 

Minimum  No.  of  Men  Available  --  The  lowest  value,  during  the 
current  report  period,  of  the  number  of  idle  men. 

Mai functions -In-Process  --  The  average  number  of  malfunctions 
being  worked  on,  again,  averaged  over  the  time  since  the  last  report. 

Man-hours  Per  Sortie  The  total  man-hours  expended  on  flight 
line  malfunctions  and  bench  repair  divided  by  the  total  aircraft 
landings . 

GRP  --  The  Grand  Averages  are  the  simple  means  of  the  numbers  for 
each  shop.  The  Grand  Standard  Deviations  are  the  standard  deviations 
of  the  numbers  for  each  shop  computed  around  grand  averages. 
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AIRCRAFT  STATISTICS 


Number  of  Sorties  --  The  number  of  landings  during  the  current 
period. 

No.  of  Maintenance  Mai functions -Average  --  The  average  number  of 
malfunctions  being  worked  on,  averaged  over  the  current  period.  This, 
then,  is  a  measure  of  the  workload  on  the  aircraft. 

No.  of  Man  Malfunctions-Average  --  The  average  number  of  mal¬ 
functions  waiting  for  men.  This,  then,  is  a  measure  "'f  the  amount  of 
delay  due  to  manpower  shortages. 

No.  of  Part  Malfunctions-Average  --  Same  as  above,  except  for 


parts  rather  than  men. 


number  of  no. of  M41NT.M4LFNS  NO. OF  M4N  M4LFNS.  NO. OF  P4«r  M4LFNS 
SORTIES  4VC.  STD. DEV.  4VG.  STO.OEW.  4VG.  STO.CEV. 
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AIRCRAFT  STATUS 

In  Malntenance-RX  --  The  number  of  hours  spent  in  maintenance 
(prefli^t  or  postflight  malfunctions)  with  one  or  more  critical  mal¬ 
functions  outstanding. 

In  Maintenance-No  RX  —  The  number  of  hours  spent  in  maintenance 
(preflij^t  or  postflight  maintenance)  with  only  non-critical  malfunc¬ 
tions  outstanding. 

G.A.  Maintenance-RX  and  no  RX  —  Sane  as  "In  Maintenance"  except 
only  for  maintenance  during  a  ground  alert. 

Standing  --  The  number  of  hours  spent  doing  nothing  and  with  no 
malfunctions  outstanding. 

Await  Sortie  --  Time  spent  waiting  prior  to  a  sortie,  with  the 
preflight  and  all  prefli^t  malfunctions  completed. 
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SHOP  UTILIZATION 

Overall  Per  Cent  --  The  overall  per  cent  utilization  is  the  total 
man-hours  used  in  fixing  malfunctions  and  in  bench  repair  divided  by 
the  total  man-hours  available  during  the  current  period. 

Man-hours  Used  --  The  total  man-hour’s  used  in  fixing  malfunctions 
and  in  bench  repair,  excluding  overtime.  Shift  1  is  from  0:00  to  8:00, 
Shift  2  is  8:00  to  16:00,  and  Shift  3  is  16:00  to  24:00. 

Shift  Utilization 

Avg.  --  The  per  cent  of  the  available  man-hours  used,  averaged 
for  each  type  of  shift. 

S.D.  --  The  standard  deviation  of  the  individual  shift  utili¬ 
zations  around  the  average  for  the  period.  Thus,  if  there  are  seven 
full  days  in  the  period,  the  average  utilization  for  Shift  1  will  be 
the  mean  of  the  seven  Shift  1  utilizations,  and  the  standard  deviation 
is  the  variability  of  these  seven  numbers  around  this  mean. 

GRP.  Grand  Totals  --  The  man-hours  used  are  sums  over  all 
shops.  The  grand  average  utilizations  are  the  ratio  of  the  total 
man-hours  used  to  the  man-hours  available  for  each  shift,  over  all 
shops . 


M4NH0URS  USED -  - SHIFT  UTILIZATION  IFRACTION) 


-29- 


\L 

•a 

X 


o 


o 

t 

%A 


oooooooooooooooooooooooooooooooooooodooooooo 


09^000  ^0^9 

< 


Ktf\004DOO«^^000 

'O^OOaT^O^I^OOO 


9  O  O  ^ 
O  9 


oo-ooooooooooooooo-ooooooooo-ooooooodoodddtJd 


US 


o 


o  o 
o  o 

9  ^ 


^  9 

o  o 


oooooooooooooooooooooooooooooooooooooooooooo 

9  <v  o  9  9 

—  9  0  O  O 

0000000000000000000000000000-^000000000000000 


o 

o 


9 

9 


O  m 
O  *4 


O  O 

9  9 


•  9#M  99  9  9 

0^99*^9990  99  09  O  ^ 

•  9009-4^90  90  9-4  •rtO 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


o  o 

9  9 


9 

9 

• 

o 


OO  f  ^  ^  999-4 

>9  ^-09  -4-rf9fW 


9900990 

9000990 


-4  9 


o 

9 


O  -4 
O  9 


9  9 
f>$  fW 


O  O 

o  o 


O0O00C000000000O0O000O00O0O0-4O000000000O000O 


O 

9 

• 

o 


•  ^99f«>0  99909  9-4000^—90999 

099^•9<^  m^0  9  9  99009-4^f49C^•«o 

•  9^^fgO  •4000^99«vr49  — 

oooooooooooooooooooooooooooooooooooooooooboo 


9  9  0#^0  9  99 

9  — 90  9  99 

fy  -400  9  m»  m* 


X 

9 


> 

9 

O 

UJ 

Ul 

X 


X 

9 


O 

X 

iU 

Ui 

Ul 

X 


X 

9 


O 

Ul 


099<C^  09009r-90C990 

—  O  T4^000999fMF^9#4k9 


O  0  9  0  O  O 

m  «4  O  O  9  9  9 


O 

ry 


o  9  «y  9  9  I 

>  9  ry  9  *4  I 

9  •  •  •  • 

oooooooooooooooooooooooooooooooooooooooooooo 

I  t  I 


•  9  O 

9  P* 

9  9 

9 

o 

-4  9  0 

P>  0  9  0 

p** 

fy  9 

9  9 

0000 

O  O  P* 

fy  o 

9  O 

9 

o 

9  P*  P“ 

«  0  0  0 

0 

m 

9  9 

9  9 

0  0  »  0 

•  9  fy 

9  •  «  • 

o  o  o 

9  9 

9  9 

fy 

o 

999 

9999 

fy 

ry 

—  ^ 

«4  »4 

0  0  —  0 

o  o  o  o 

o  o  u  o 

b  b 

b  b 

0000000000 

0  0 

c. 

c. 

0, 

0, 

0. 

0. 

b  0  0  b  b  0 

b  b  b  b  b 

• 

o  e  — 

>9  9 

9  9 

o 

o 

9  0  9 

9  0  9  P- 

0 

(D 

0 

9  9 

0  0  fy  0 

9  9 

9  9 

o 

999 

fy  fy  9  fy 

9 

9 

—  0 

■4  04 

00  —  0 

oo6ooooooooooooooooooooooo66o6obo66b666b6bbb 

•  O  P-  P4 

—  Nk 

9 

o 

OOP- 

^  9  9  py 

9 

0 

9  0 

9  9 

999 

O  M  9 

O  P- 

fy 

o 

9  P-  9 

fy  (P  0  — 

9 

9 

—  0 

9  9 

9  9  0 

•  9  fy  9 
9  •  •  • 

9  fy 

•  •  •  • 

•  4  •  • 

9 

•  « 

o 

•  « 

9  9  ly 

•  •  •  • 

9  9  fy  9 

9 

•  • 

9 

•  • 

•  •  •  • 

fy  fy 

»4  «4  m4 

•  •  •  •  • 

oooooooooooooooooooooooooooooooooooooooooooo 

o  O  9  9  9 


o  9  o  <y  -4  9 
>  9  <y  9  9  9 

9«4«*4«4««44444«44*444«44*«*»*»*4»4*4**44«4** 

oooooooooooooooooooooooooooooooooooooooooooo 


o  990  0009 

9  O  999  9^9«4k 


p*  o  ly  o 

9  9  -4  — 


f-900P^  00-4  — 


0iy0099090000 


ryo090py0^•^-0009000009ry00000'y090  —  9000000000000 
I—  I  III 


0  9  0  —  O  OO  9  O  O  OO 

oooooooopyooo9oooooooooiyooooo90oooooo9fyoooooo 


ry  O  O  9  9  9  9 


O  9  O  O  9  o 


o 


o  o 


009«4^09<y^*900^000'y9000090009090000000^0000000 

m  -4  «4  *4 


9  9  9  o 


fy  —  9  o  o 


9^00P^90094>P«.9 


—  9  9  9  0 


90P^990’^9(^P»009— 00po90-49«y00000090990090<y900009c 

9iy9  0— —  ^  Il9p»«py*49fy9^  09—  |  -4  09  fy 


—  o  9  fy  o  < 


fy  O  099  —  O  9  9  —  OO 


9  0  0^0 


909090fy09fy0090009990009000  —  0009fyo00090000090 

—  9fy9—  -4  .4  99  .4^  ^ 


^  ^  9  tS4 


9  O  90fy  9999 


O  o  o 


p^^^09C>  —  000009000P^990f^— P-9000090990000990099  —  o 
^•.«9ry9  9  ^fypy999—  •4ry  9fy  ry.4.4 

a 

X*4fV9999^>000-4iy9999P-000— fy9999r4000  —  fy9999^»000  —  fy99 
i/>  •4^<i4«4.4«4«4»4«4-4fvfyfyfyfypyfyfyfyfy999999999999999 


9 

9 

• 

O 


ry 

o 


CRD  620.7  475. A  951.5  170.3  75.2  154.9  0.40 


-30- 


SYSTEM  ST/ilTSTICS 

Wumber  of  l>ate  Sorties  —  A  sortie  is  considered  late  if  it  takes 
off  any  time  after  its  scheduled  take-off  time. 

Per  Cent  of  Sorties  Late  —  This  percentage  is  equal  to  the  total 
number  of  late  sorties  divided  by  the  number  of  landings  during  the 
period. 

Overall  Pill -Rate 

Number  of  Demands —  A  demand  is  tallied  the  first  time 
maintenance  on  a  malfunction,  vhich  requires  a  part,  is  attempted. 

Number  of  Fills  --If  the  part  required  is  available 
Immediately  on  the  first  try  at  maintenance,  a  fill  is  tallied  in 
this  count. 

Pill  Rate  --  Dividing  the  number  of  fills  by  the  number  of 
demands  yields  the  fill -rate. 

Sortie  Count  by  Type  of  Sortie  --  This  is  a  count  of  :he  number 
of  landings  during  the  period. 

Stopping  Postrilitht  Mainter;ance  to  Start  New  Sortie 

Atteapts  --  The  number  of  times  an  attempt  was  mads  to 
terminate  maintenance  on  postflight  malfunctions  in  order  to  start 
the  preflight  for  the  next  sortie. 

Successes  --  The  number  of  times  the  above  attempts  were 
successful  by  virtue  of  the  fact  that  no  outstanding  malfunctions  were 
critical . 

Tvirn-Around  Uata 

Touchdown  to  Completion  of  All  Maintenance  --  Tlu’  turn* 
around  time  to  the  completion  of  all  maintenance  is  the  time  from 
landing  to  the  completion  of  mair.teivsnce  on  all  laa  Uunc  t  ions  ,  or  r.o 
terainatior.  of  maintenance  in  order  to  start  the  next  sortie,  whichever 
happens  first.  Hie  Average  Time  is  the  ow^an  of  all  turn-arouisds  com¬ 
pleted  during  the  p<*rlrd,  the  Maxietuw  and  Min Ir-um  times  are  the  biggest 
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and  final  lest  of  the  indivldua]  turn-e  mds  and  the  Standard  Deviation 
is  the  standard  deviation  of  the  individual  turn-around  around  the 
mean. 

Touchdown  to  Completion  of  All  Red»X  Maintenance  Same  as 
above  except  the  turn -around  is  completed  when  the  last  Red  X  or 
critical  malfunction  is  fixed. 

Number  of  Malfunctions  Completed  in  Less  than  Specified  Time  -- 

The  number  of  malfunctions  repaired  in  some  specified  fraction  of  the 
normal  time  in  order  to  prevent  a  cancellation. 

Operational  Ready  Rate  --  The  percentage  of  the  total  air¬ 
craft  hours  available  spent  in  the  following  statuses:  In  Maint-No 
RX,  Flying,  Ground  Alert,  G.  A.  Maint.  -  No  RX,  Standing,  and  Await 
Sortie. 
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Appendlx  A 

OUTFUT  TAPE  FORMAT  -  EXOGENOUS  EVENT  TAPE 

The  format  of  the  card  images  on  chlz  tape  which  is  the  input 
to  the  Main  Program  is  as  below.  Each  sortie  consists  of  one  each 


of  the  type 

!  1  and 

2 

cards  and  as  many  pairs  of  type  3  and  4  cards 

as  there  are  malfunctions. 

Type  1  Card 

- 

1  per  event 

Cols. 

1-3 

- 

Event  type* 

Cols. 

4-12 

- 

Time  of  event  (days,  hours,  minutes) 

Cols. 

13-16 

- 

Tail  number 

Cols. 

17-18 

- 

Type  of  sortie** 

Type  2  Card 

- 

1  per  event  (only  for  type  1  events,  all 
other  event  types  have  only  the  type  1  card) 

Cols. 

1-6 

- 

Length  of  sortie  (hours) 

Cols. 

7-16 

- 

Time  of  this  sortie  (days,  hours,  minutes) 

Cols. 

17-26 

- 

Time  of  next  sortie  (days,  hours,  minutes) 

Cols. 

27-29 

- 

Type  of  next  sortie** 

Cols. 

30-32 

- 

Number  of  preflight  malfunctions 

Cols. 

33-35 

- 

Number  of  postflight  malfunctions 

Cols. 

36-38 

- 

Number  of  ground  alert  malfunctions 

Type  3  &  4 

Cards 

- 

1  each  per  malfunction 

Type  3 

Cols. 

1-5 

- 

Total  man  hours  required  to  fix  (hours,  mins.) 

Cols. 

6-7 

- 

When  discovered  code*** 

Cols. 

8-9 

- 

Criticality  (0  ■  non-critical ,  1  ■  critical) 

Cols. 

10-11 

Overtime  flag  (same  as  8-9) 

Cols. 

12-13 

- 

NRTS  flag  (0  •  remove  and  replace,  1  ■  NRTS) 

Cols. 

14-15 

- 

Time  of  discovery**** 

Cols. 

16-19 

- 

Part  number  (0  -  975)  0  if  none  (repair  in  place) 

Cols. 

20-22 

- 

Shop  to  do  bench  repair  on  part.  0  if  part 
number  (16-19)  -  0,  or  NRTS  (12-13)  "  1 

Cols. 

23-27 

- 

Time  to  do  bench  repair  (hours,  minut'’s) 

vO  1  s . 

28-29 

- 

Number  of  different  shops  required  to  fix 

For  footnotes  see  page  36. 
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Type  4 

Cols.  1*2 
Cola.  3-4 
Cols.  5 


Shop  number  of  first  shop  required 

Number  of  men  required  from  first  shop 

Skill  level  of  first  shop  (0  ■  skilled, 
1  ■  unskilled) 


Cols.  1-5  repeated  for  as  auiny  shops  required  as  shown 
in  Cols.  28-29  on  Type  3  Card  up  to  a  maximiun  of  14  shops. 


*1  >  sortie;  2  ■>  start  of  sisulation;  3  ■  end  of  simulation; 

4  ■■  memory  dump;  5  ■  analysis  time. 

**-l  ■  training  sortie;  0  •  ground  alert;  +1  ■  air  alert. 

**♦0  ■  preflight;  1  ■  postflight;  6  ■  ground  alert. 

★SnHrfor  a  preflight  malfunction  (when  discovered  code  (w.d.c.)  ■  0) 
the  time  of  discovery  code  has  the  following  meaning: 

1  "  discovered  1/3  of  the  way  through  the  preflight 

2  ■  discovered  2/3  of  the  way  through  the  preflight 
0  «  discovered  at  the  end  of  the  preflight. 

For  a  ground  alert  malfunction  (w.d.c.  ■  6)  this 
code  shova  the  day  on  which  the  malfunction  is  to 
be  discovered, counting  from  the  start  of  the  ground 
alert.  (For  example,  if  the  time  of  sortie  was 
5.10.15  and  this  code  is  an  8,  the  malfunction  is 
to  be  discovered  on  13.10.15.) 

For  a  postflight  malfunction  (w.d.c.  *  1)  this 
code  is  always  zero,  meaning  the  malfunction  Is 
discovered  at  the  end  of  the  postf light  inspection. 
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Appendix  B 

DETAILS  OF  THE  MAIN  PROGRAM 
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Table  1 

VOCABULARY  OF  VARIABLES  USED  IN  THE  SIMULATOR 


Following  are  the  names  given  the  SIMSCRIPT  variables,  the 
definitions  given  the  names,  the  entities  for  which  the  variables 
are  an  attribute,  and  the  sets  and  functions  used  in  the  Main  Program. 

Temporary  Attributes 


Attribute  Name 

Definition 

Attribute  of  Entity 

CANAD 

Cannibalization  flag 

MALFN 

CANAR 

fiannibalization  notice 

MALFN 

CLSSP 

Part  class 

MALFN 

CRIT 

Criticality 

MALFN 

DISCV* 

Discovery 

MALFN 

FINTM 

Finish  time 

MALFN 

PC 

Not  used 

FQUES 

First  in  QUES 

MALFN 

FREQS 

First  in  REQS 

MALFN 

LQUES 

Last  in  QUES 

MALFN 

LREQS 

Last  in  REQS 

MALFN 

MAN 

Man 

MREQ 

MFN 

Malfunction 

mV,  CLMTC 

MLFTN 

Malfunction 

CARD 

MREPP 

Nan  to  repair  part 

MAI.FN 

MTNR 

End  of  maintenance 
notice 

MALFN 

NOKEN 

Number  of  men 

MRilQ 

MORE? 

Not  used 

MRTS 

Not  reparable  this 
station 

MALFN 

OtTlC 

Overtime  flag 

MALFN 

PART 

Part 

MALFN 

PCANE 

Part  cannibalized 

KTN 

PMALrt 

Predecessor  in  MALM 

CARD 

PMALP 

Predcceaeor  in  MALP 

HALFN 

PMLPN 

Predecessor  in  MLFN 

MALFN 

See  page  45 . 
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Table  1  (cont'd) 
Teaiporary  Attributes  (cont'd) 


Definition 

Attribute  of  Entity 

PQREP 

Predecessor  in  QREP 

REPAJl 

PQUES 

Predecessor  in  QUES 

CARD 

PREQS 

Predecessor  in  REQS 

MREQ 

PRIP 

Predecessor  in  RIP 

REPAR 

PTYM 

Priority  in  MALM 

CARD 

PTYP 

Priority  i.i  MALP 

MALFN 

PTYR 

Priority  in  QREP 

REPAR 

PWIP 

Predecessor  in  WIP 

CARD 

REPLT 

Not  Used 

REPTM 

Repair  time 

MALFN 

SHFLG 

Shift  flag 

REPAR 

SHOPN 

Shop  number 

MREQ 

SKILL 

Skill 

MREQ 

SMALM 

Successor  in  MALM 

CARD 

SMALP 

Successor  in  MALP 

MALFN 

SMLFN 

Successor  in  I'R.FN 

m:.lfn 

SQREP 

Successor  in  QREP 

REPAR 

SQUES 

Successor  in  QUES 

CARD 

SREQS 

Successor  in  REQS 

MREQ 

SRIP 

Successor  in  RIP 

REPAR 

STOVT 

Start  of  overtime 

MALFN 

SUB 

Substitute 

MREQ 

SWI? 

Successor  in  WIP 

CARD 

TDISC 

Time  of  discovery 

MALFN 

TLNO 

Ta  1 1  nufflbet 

MALFN 

TREPP 

Tine  to  repair  the 
part 

MALFN 
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Table  I  (cont'd) 


Permanent  System  Variables 


Varirble  Name 

Definition 

Attribute  of  Entity 

1 

AC 

Aircraft 

Entity 

2 

PRT 

Part 

Entity 

3 

SHOP 

Shop 

Entity 

7 

RSKF 

Rush  percentage 

System 

8 

ENDSE 

End  of  sortie 

AC 

9 

TOURS 

Type  of  current  sortie 

AC 

10 

TMNXS 

Time  of  next  sortie 

AC 

11 

TYFLS 

Type  of  following  sjftie 

AC 

11 

Tms 

Type  of  next  sortie 

AC 

* 

FFLAG 

Preflight  flag 

AC 

12 

NFREM 

Number  of  preflight  mal- 
i  met  ions 

AC,  SENON(AC) 
or  SEKOO(AC) 

13 

SSLEN 

Sortie  length 

AC,  3EN0N(AC) 
or  SENOO  UC) 

14 

NOOSH 

Number  of  out  standing 
malfunctions 

AC 

14 

NREDX 

Number  of  ;red-x  (critical) 
malfunctions 

AC 

15 

CLAS 

Class  of  aircraft 

AC 

15 

PREFN 

Preflight  finished  flag 

AC 

16 

NOPTM 

Number  of  part  malfancticns 

AG 

17 

NOWEP 

First  a/c  with  no  weapons 

Sys  tern 

18 

SENOO 

Sortie  number,  old 

AC 

18 

SENON 

Sortie  number,  new 

AC 

19 

MAXMN 

Not  used 

20 

TMPOT 

Time  to  do  a  postflight 

System 

21 

DELAG 

Delay  from  depot 

System 

22 

PODLA 

Postflight  delay 

System 

23 

HWIP 

Number  of  work  in  process 

SHOP 

24 

FMLFN 

F^rst  malfunction  in  MLFN 

AC,  SENON (AC) 
or  SENOO(AC) 

26 

SACST 

Successor  aircraft  in  ACST 

AC 

26 

PACST 

Predecessor  aircraft  in  ACST 

AC 
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lai^le  I  (cont'd) 

'i'ermanent  System  Variables  (cont'd) 


Variable  Name 

Definition 

Attribute  of  Entity 

27 

FWIP 

First  card  in  WIP 

SHOP 

28 

PREDY 

Pre-empt  delay  time 

System 

29 

FMALP 

First  malfunction  in  MALP 

PaT 

29 

LMALP 

Last  malfunction  in  MALP 

?RT 

30 

NPRTA 

Number  of  parts  available 

PRT 

30 

NCANB 

Number  of  cannibalizations 

PRT 

30 

NMALP 

Number  of  malfunctions 
waiting  for  a  part 

PRT 

31 

SliPDY 

Shop  delay 

S/f;tem 

32 

NQREP 

Number  of  reparables  in  QREP 

SHOP 

33 

DTCAN 

Delay  to  cannibalize 

System 

34 

NTEAM 

Number  of  teams 

Dummy 

35 

SFTNO 

Shift  number 

System 

36 

FSAT 

First  Saturday 

System 

37 

FACST 

First  aircraft  in  ACST 

System 

38 

NMASD 

Numoer  of  men,  weekday 

SHOP,  SHIFT 

39 

OVTMH 

Overtime  manhours 

SHOP 

40 

f  LAG 

Flag  for  shift  change 

System 

42 

NACST 

Number  o^  aircraft  standing 

System 

43 

NAOCP 

Number  of  aircraft  out  of 
commission,  parts 

System 

44 

NACCM 

Number  of  aircraft  out  of 
commission,  maintenance 

System 

45 

NACMN 

Number  of  aircraft  out  of 
commission,  men 

System 

46 

LIP 

LTPRE  notice 

AC 

47 

KORE 

Nurabei  of  locations  to  dump 

System 

48 

TACTM 

Trace  time  (for  debugging) 

Syst  em 

49 

NGAMN 

Number  of  ground  alert 
ma  1  f unct ions 

AC,  SENON(AC) 
or  SENOO(AC) 

50 

WHERE 

Where 

Sys  L  em 

51 

ENOSH 

End  of  shift 

System 

52 

NOMNM 

Number  of  man  malfunctions 

AC 
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Table  I  (cont'd) 


Permanent  System  Variables  (cont'd) 


Variable  Name 

Definition 

Attribute  of  Entity 

53  WOMEN 

Number  of  maintenance 
malfunctions 

AC 

55  OVTJUP 

Overlap  for  overtime 

System 

56  FQREP 

First  reparable  in  QREP 

SHOP 

56  LQREP 

Last  reparable  in  QREP 

SHOP 

57  FRIP 

First  reparable  in  RIP 

SHOP 

57  LRIP 

Last  reparable  in  RIP 

SHOP 

61  NMASE 

Number  of  men,  weekend 

SHOP,  SHIFT 

62  MISSD 

Not  used 

63  FMALM 

First  malfunction  in  MALM 

SHOP 

63  LMALM 

Last  malfunction  in  MALM 

SHOP 

64  NMENA 

Number  of  men  available 

SHOP 

65  MAXLT 

Maximum  lateness 

Dummy 

66  IDYCL 

Indicator  to  destroy  "cancel 
sortie" 

AC 

66  ISECL 

Indicator  sortie  canceled 

AC 

67  NMALM 

Number  of  malfunctions 
waiting  for  men 

SHOP 

68  NRIP 

Number  of  reparables  in 
process 

SHOP 

69  LMLFN 

Last  malfunction  in  MLFN 

AC,  SENON(AC) 
or  SENOO(AC) 

70  Li\CST 

Last  aircraft  in  ACST 

System 

71  FSUN 

First  Sunday 

System 

72  TMPRT 

Time  to  do  a  preflight 

System 

73  NPOSM 

Number  of  postflight 
malfunctions 

AC,  SENON(AC) 
or  SENOO(AC) 

74  TMFLS 

Time  of  following  sortie 

AC 

75  WEPST 

Weapon  status 

AC 

76  SHPNO 

Shop  number 

Dummy 

77  NOMN 

Number  of  men 

Dummy 

78  SKLL 

Skill 

Dummy 

79  TIMET 

Time  of  team  action 

Dummy 
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Table  I  (cont'd) 


Variable  Name 

Definition 

Attribute  of  Entit 

80  NACW 

Number  of  aircraft  with 
weapons 

System 

81  RUN 

Run  nuruber 

System 

82  INS 

Tail  ntomber  scheduling  flag 

System 

83  BIG 

Location  of  longest 
malfunction 

AC 

84  31G1M 

Length  of  longest 
malfunction 

AC 

-45- 


TablA  n 

DISCOVERY  (niSCV)  CODES 


These  are  the  possible  values  of  the  attribute 
describe  at  what  stage  of  a  sortie  a  malfunction  is 


DISCV,  which 
discovered . 


Code 


When  Malfunction  Discovered 


0 

1 

2 

3 

4 

5 

6 


Preflight 
Postf light 
Not  used 
Upload  Action 
Download  Action 
Service  Action 
Grou  td  Alert 
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Table  lit 

VOCABULARY  OF  ROUTINES  USED  IN  THE  SIMULATOR 


The  following  is  a  Use  of  all 

EXOGENOUS  EVENTS 

DIMFP  --  dump 

ENDSM  --  end  simulation 

SORT!  --  sortie  (read  input) 

START  --  stare 

ENDOGENOUS  EVENTS** 

(temporary  event  notices) 

CALIM  --  call  maintenance 

CANAB  --  cannibalize 

CLMTC  --  call  maintenance 

CLSE  --  cancel  sortie 

LTPRE  --  latest  time  to  preflight 

MTN  --  maintenance 

PDLAY  --  postfli^t  delay 

POSFL  --  postflight 

PREFL  --  preflight 

PTARR  --  part  arri  val  (from  depot) 

PTREP  --  part  repair 

REPAR  --  reparable  part  arrival 

(from  flightline  to  shop) 

SHIFT  --  shift 

SORTE  sortio 

Wl'SOR  --  wait  for  sortie 

FUNCTIONS 

Pv'ARD  (CARD)  priority  ot  can! 

ZERO  (CARD'  zero 

RfjURTS 

INTLZ  --  initialization  itport 
ERKR  (N)  --  error  report 


the  routines  in  the  Main  Program. 


SUBROUTINES 

BENCH 

-- 

bench 

CANCL 

-- 

cancel 

CUSS 

-- 

classify 

CREPT 

-- 

create  part  repair 

DELAY 

*  * 

delay 

DOPRE 

m 

do  pre-emption 

FCRDM 

-  - 

file  card  in  malfunc¬ 
tions  waiting  for  mer 

FCRDW 

-- 

file  card  in  work  in 
process 

ffTCE 

maintenance 

OUT 

-- 

out 

PREFT 

-- 

preflight 

PREMP 

-- 

pre-empt 

PTYMR 

-- 

priority  of  men 

PlYPR 

-- 

priority  of  part 

PrfRR 

priority  of  reparable 

RCRTM 

-  . 

remove  card  from 
waiting  for  men 

RCRDW 

remove  card  from  work 
in  process 

RDM 

remove  and  Ceslroy 
ma 1 lunc  t ion 

SPOH. 

-- 

start  postflight 

STE^ 

-- 

start  t  earn  action 

STNXS 

stilt  f  next  softie 

STOKT 

sf  ‘p  raa  inf  rnanc 

TERM 

terminate  maintenance 

!  SE31N 

use  men 

USEPT 

t!!*e  |>a  1  t 

ERR 

-  . 

e  rtiff 
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THK  INITIAL  CONDITIONS  DECK 

The  iiiitiel  conditions  deck  is  e  package  of  punch^  cards  which 
are  inserted  at  the  end  of  the  i&ain  deck.  The  inirUl  value  of  the 
pemanent  systea  variables  can  he  changed  for  each  run  of  the  deck, 
thereby  changing  the  outcome  of  each  run.  The  permanent  system 
variables  are  each  assigned  an  array  number,  and  the  initialisation 

■k 

deck  must  include  all  array  numbers  in  sequence.  A  report  is  generated 
with  each  run  %diich  lists  Che  currently  used  input  values  for  each 
permanent  variable  (see  sample  on  page  after  next) . 

Some  of  the  variables  always  are  set  to  zero  at  the  beginning  of 
each  run,  and  change  their  values  as  siinulated  time  increase^.  See  a 
copy  ot  Che  Initialization  Report  for  the  names  of  Che  variables  set 
to  zero. 

The  array  numbers  and  names  shown  in  the  right-hand  column  on 
Che  next  page  are  set  to  Che  desired  initial  figure,  not  necessarily 
zero,  but  change  during  the  running  of  the  program. 

Ttie  left-hand  column  shows  those  pci>rmanent  system  attribur.'.s 
which  are  set  to  the  desired  number  or  time  lengths  and  remain  con¬ 
stant  during  the  run. 

The  initially  set  constants  of  this  last  group  which  bear  heavily 
in  giving  Che  different  results  of  each  run  are  those  with  a  star. 

For  Instance,  Che  number  of  men  allotted  per  shift,  cr  Che  number  of 
p«rCs  available,  or  the  time  to  uo  a  preflight,  postflight,  etc. 

*See  H.  M.  Markowitz,  B.  Hausner.  H.  W.  Karr,  SIKSCRIFT: 

A  Simulation  ProRransning  Uinzuage  .  RM-J310-PR,  Novesiber  , 
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These  variables  are  set  at  the  These  variables  are  set  at  the 

beginning  of  a  run  and  remain  at  beginning,  but  change  their 

that  value  until  a  change  is  value  during  the  run. 

desired  for  another  run. 


1 

4C 

19 

MAXMN 

2 

PRT 

37 

FACST 

3 

SHOP 

42 

NACST 

17 

NOWEP 

70 

LACST 

20 

TMPOl* 

80 

NACWW 

21 

DELAG* 

15 

CLAS 

22 

PODLA* 

26 

SACST 

28 

PREDY* 

26 

PACST 

31 

SHPDY* 

75 

WEPST 

33 

UTCAN* 

30 

NPRTA* 

36 

FSAT 

47 

KORE 

48 

TACIM 

55 

OVLAP 

72 

IMPRl* 

81 

RUN 

34 

NTEAM 

■*9 

TIMET 

65 

VAXLT* 

76 

SHPNO 

77 

NOMN 

78 

SKLL 

38 

NMASD* 

61 

NMASE* 

Variables  whose  initial  condition  can  affect  the  results  of 


a  run. 


INPUT  VALUES  FOR  INITIAL  CONDITIONS 
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OOLBLE  SUBSCRIPTED  VARIABLES 
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INPUT  VALUES  FOR  INITIAL  CONDITIONS  (CONT'O) 
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WOIdC  CENTER  CODING 

The  present  simulator  allows  for  the  ma'^ning  of  44  shops. 

These  shops  correspond  roughly  to  the  SAC  Work  Centers  required  to 
maintain  aircraft.  A  work  center  is  given  two  numbers  in  the  siniulator 
to  differentiate  between  skilled  and  unskilled  men.  The  skilled 
portion  of  a  shop  is  denoted  by  an  odd  number,  and  the  succeeding 
even  number  denotes  the  unskilled  portion  of  that  shop. 


. . .  '  '  — . .  "■  — 

SAC  Work  Center 

*’*’  . . —  - - -  - -  ’ 

SAC  Code 

Simulator 

Shop  Number 

Armament  end  Electronics 

Skilled 

Unskillc' 

Radio  communication 

26310 

1 

2 

Electronic-navigation  equipment 

26320 

3 

4 

ECM 

26330 

5 

6 

Bomb  /  tia  V  i  g  a  t  i  on 

26410 

7 

8 

Autopilot  flight  control 

26420 

10 

Photo 

26430 

11 

12 

Fire  control 

26510 

13 

14 

Weapon  system 

26520 

15 

16 

Fi-ild  Maintenance 

Unit  change  (encine  flight  line) 

24211 

17 

18 

Engine  shop 

24212 

43 

44 

A/C  repair  and  reclamation 

24310 

19 

20 

Fuel  system 

24320 

21 

22 

Pneudraulic 

24420 

23 

24 

Inflight  refueling 

24430 

25 

26 

Electric 

24440 

27 

28 

Instrument 

24450 

29 

30 

Structural  repair 

24320 

31 

32 

Survival  equipment 

2-^*550 

33 

34 

Wheel  and  tire 

24370 

33 

36 

CMS 

Servicing  and  handling 

21830 

37 

38 

MMS 

Weapon  loading  •-.earns 

41 

42 
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EXPLANATION  of  routines  in  SPgJIATOR 
nUBROin^IIE  BENCH  (M) 

CALLED  by  USEMN  to  start  bench  work  on  roparables  waiting  in 
queues,  if  any.  CaUjS  CREPT  to  create  and  cause  repair. 

F.NDOG  EVENT  CAI-LM 

CAUSED  by  TERM  to  attempt  to  start  maintenance  using  men  made 
available  during  pre-emption.  CALLS  USEM^  to  determine  what  work  can 
be  started. 

ENDOG  EVENT  CANAB 

CAUSED  by  MTCE  to  start  a  remove  >action  on  a  fictitious  aircraft. 
It  tests  to  determine  if  the  part  has  become  available  since  this  event 
was  caused,  if  so,  no  action  is  necessary.  If  no  part  is  available  yet, 
it  sets  the  remove  time  at  6^10  of  the  remove  aae  replace  time,  and 
CALLS  MTCE  to  start  the  remove  action. 

SUBROUTINE  CANCL  (I) 

CALLED  by  PREFT  to  cancel  sortie  if  it  is  found  that  the  aircraft 
can  not  finish  the  preflight  in  time  to  sortie.  Or  CALLED  by  CLSE  to 
cancel  the  sortie,  if  it  is  already  the  latest  time  to  sortie  and  rir- 
craft  is  not  ready,  CALLS  RISi  to  destroy  any  malfunctions  that  have 
not  been  discovered 

SUBROUTINE  CLASS  (I) 

CALLED  by  TERM  if  maintenance  is  being  .stopped;  or  CALLED  by  MTK 
at  the  end  of  maintenance  if  there  are  outstanding  malfunctions,  or 
CALLED  by  MTOF  after  each  malfunction.  Sets  class  of  aircraft  to  3 
if  there  are  any  malfunctions  currently  being  worked  on,  sets  class  to 
2  if  there  are  any  malfunctions  waiting  for  men,  or  sets  class  to  1  if 
there  are  any  malfunctions  waiting  for  parts, 

EinX)G  EVENT  CLMTC 

CAUSED  by  WTSOR  if  sortie  is  a  groucl  alert  in  order  to  CALL  MTCE 
at  the  proper  day  to  start  work  on  ground  alert  malfunctions.  Or 
CAUSED  by  PREFI  to  call  MTCE  for  malfunctions  discovered  1/3  or  2/3 
tlirough  preflight.  Or  CAUSED  by  MTCE  if  the  num.ber  of  men  required 
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exceeded  the  maxliniim  ever  available,  and  the  number  required  vas  re¬ 
duced  to  this  maximum,  in  order  to  try  to  start  maintenance  again, 

ENDOG  EVENT  CLSE 

CAUSED  by  SORTI  to  occur  at  the  time  the  a/c  should  fly  or  the 
event  will  be  cancelled.  If  aircraft  has  already  taken  off  or  sortie 
is  already  cancelled,  nothing  happens.  If  preflight  is  not  finished, 
CALL  CANCL,  If  preflight  is  finished  CALL  STOMT  to  stop  maintenance 
if  no  critical  n'al functions  exist.  If  critical  malfunctions  exist 
CALL  CAKCL.  otherwise  CAUSE  WTSOR. 

SUBROUTINE  CREPT (REPAR) 

CALLED  by  BENCH  to  start  work  on  reparable  that  was  waiting  in 
queue  or  CALLED  by  REPAR  to  start  repair  of  part  just  arrived  at  the 
shop.  If  the  repair  can  be  completed  before  the  end  of  shift  plus  the 
overlap  time  CAUSE  PTREP  to  end  repair.  If  work  extends  past  shift 
plus  overlap  time,  repair  will  be  stopped  at  shift  time  by  SHIFT  and 
remaining  repair  time  noted, 

SUBROUTINE  DEUY(X) 

CALLED  by  POSFL  at  end  of  postflight.  If  postflight  malfunctions 
exist  a  delay  rime  before  start  of  maintenance  is  set. 

SUBROUTINE  DOPRE(L,M,B) 

CALLED  by  MICE  to  do  the  pre-emption  so  that  maintenance  on  a 
critical  malfunction  can  proceed.  It  pie-empts  only  from  bench  repairs 
first,  then  if  there  are  still  not  enough  men,  it  pre-empts  from  flight 
line  malfunctions  until  enough  men  are  available.  CANCELS  PTREP  to 
delay  the  end  of  bench  repair  and  CALLS  TERM  to  stop  flight  line  work 
to  make  the  men  available. 

EXOG  EVENT  DUMPP 

The  dump  calls  uO’'?E  for  a  print  of  memory  at  Che  time  specified 
on  the  event  tape. 


EXOG  EVENT  ENDSM 

Ihe  event  to  end  the  simulation 
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SUBROUTINE  EKR(N) 

Called  by  any  routine  when  an  error  occurs.  Calls  ERRR(N)  for  a 
printed  report,  and  supplies  a  CORE  memory  dump. 

REPORT  ERRR  (N) 

Called  by  ERR(N).  Prints  the  numoer  of  the  error. 

SUBROUTINE  FGRDM(L,M) 

CALLED  by  MTCE  if  men  are  not  available  to  start  maintenance  or 
CALLED  by  TERM  it  men  are  being  pre-empted.  Files  the  card  of  the  mal¬ 
function  in  a  set  of  malfunctions  waiting  for  men  of  a  particular  shop, 
and  in  the  set  of  queues  of  the  malfunction. 

SUBROUTINE  FCRDW(L,M) 

CAI..LED  by  MTCE  when  men  and  parts  are  available  and  maintenance 
begins.  Files  the  malfunction  in  a  set  of  work  in  process  in  a  parti¬ 
cular  shop. 

ENDOG  EVENT  LTPRE 

CAUSED  by  SORTI  at  the  latest  tine  to  start  a  preflight  in  order 
to  sortie  on  time.  If  the  aircraft  is  in  postflight  delay  or  in  post¬ 
flight  maintenance  or  waiting  parts  or  men  to  do  postflight  maintenance, 
it  CAiiS  STOKI  to  attempt  to  stop  any  maintenance.  II  u.-.l functions 
are  critical,  work  on  them  continues,  but  if  there  are  no  critical  mal¬ 
functions,  STNXS  is  called  to  start  the  next  sortie.  If  aircraft  is  in 
any  other  status,  no  dction  is  taken. 

SUBROUTINE  MTCE(L,NN) 

This  routine  attempts  to  start  !iiv=iincenance  on  a  flight  line  mal¬ 
function.  CALLED  by  CANAB  to  start  i'emoving  a  part  from  a  ficticious 
aircraft  for  a  cannibalization,  CALLED  by  CLMTC  to  start  on  malfunctions 
discovered  1/3  or  2/3  through  preflight,  or  to  start  maintenance  on 
malfunctions  discovered  during  ground  alert.  Or  CALLED  by  CUiTC  to 
recall  MTCE  after  reducing  the  number  of  men  required  if  th 3  maximum 
ever  available  had  been  exceeded.  GALLED  by  IWN  after  the  remove 

a  canabalization  in  order  to  start  the  remove  and  replace 


action 
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action.  CALLED  by  PDLAY  to  start  maintenance  on  postflight  malfunc¬ 
tions.  CALLED  by  PREFI.  to  start  work  on  malfunctions  discovered  at 
the  end  of  prefl*,ght.  CALLED  by  STEAM  to  start  upload,  download,  or 
service,  CALLED  by  USEMN  to  attempt  to  start  work  using  men  who  have 
just  been  made  available.  CALLED  by  USEPT  to  start  any  malfunctions 
waiting  for  a  part  which  has  just  become  available. 

Part  I  “  Part  availability 

The  priority  of  the  malfunction  is  set  by  calling  PTYMR.  Part 
availability  is  tested.  If  no  part  is  required,  if  this  maintenance 
is  the  start  of  a  remove  action  during  a  cannibalization,  if  this  is  the 
remove  and  replace  action  of  a  cannibalization  (part  is  available  since 
it  had  just  been  cannibalized),  or  if  the  required  part  is  available  in 
base  stock,  no  action  is  taken  (see  Part  II  for  man  availability) . 

If  part  not  available,  GAIL  PTYPR  which  sets  the  p::iority  for  the 
part.  The  malfunction  is  filed  in  a  set  of  malfunctions  waiting  for 
the  part.  The  number  of  malfunctions  waiting  that  part,  and  the  number 
of  part  malfunctions  on  the  aircraft  are  increased.  If  the  part  is  not 
critical,  maintenance  waits  until  the  part  becomes  available.  If  the 
part  is  critical,  CAUSE  CANAB  to  cannibalize  from  a  ficticious  aircraft 
at  the  latest  time  which  will  allow  the  next  sortie  to  be  started. 

After  any  of  the  above  cases,  man  availability  is  checked  as  in  II 
below. 

Part  II  -  Man  Availability 

If  no  men  are  required,  see  part  III,  If  men  are  required  and 
enough  are  available,  or  if  not  enough  available  but  a  substitution  of 
skilled  men  for  unskilled  men  is  possible,  CALL  RCRrai  to  remove  the 
malfunction  from  the  set  of  malfunctions  waiting  for  men  (it  may  or 
may  not  be  in  the  set.)  GALL  FCRDW  to  file  the  malfunction  in  work  in 
process  of  each  required  shop,  and  reduce  the  men  available  in  those 
shops,  including  the  substitutions,  ’.jhen  called  for.  Proceed  to  part 
III.  But  if  men  are  not  available  and  substitution  not  possible,  test 
criticality.  If  not  critical,  CALL  FCRIIM  to  file  it  in  malfunction 


waiting  for  men,  and  proceed  to  part  IV.  If  the  malfunction  is  critical, 
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CALL  PREMP  to  check  possibility  of  a  pre-emption.  If  not  possible, 

CALL  FCRDM  to  file  the  malfuncti'jn  Into  the  set  waiting  for  men  and 
proceed  to  Part  IV.  If  pre-emption  is  possible,  CALL  RCPJDM  to  remove 
from  the  set  of  malfunctions  waiting  men  (it  may  or  may  not  be  a  member 
of  the  set)  .  CAL'^  FCRDW  to  file  the  malfunction  in  work  in  process  for 
each  required  shop.  CALL  DOPRE  to  do  the  actual  pre-emption  of  ren. 

Part  III  -  Start  Work 

Calculate  the  finish  time,  dependent  on  the  length  of  repair.  If 
men  had  been  pre-empted,  add  a  delay  to  the  finish  time.  CAUSE  MIN . 
the  end  u£  maintenance  at  finish  time.  If  it  is  a  reg>jlar  preflight, 
postflight  or  ground  alert  malfunction,  increase  the  number  of  mainten¬ 
ance  malfunctions  on  the  aircraft.  If  no  part  was  required,  CALL  CLASS 
to  classify  the  aircraft.  Wlien  a  part  is  required,  or  when  starting 
maintenance  using  a  cannibalized  part,  reduce  the  number  of  parts  avail¬ 
able.  If  the  part  is  reparable  this  station,  CAUSE  REPAR,  the  arrival 
of  the  reparable  at  the  shop,  after  maintenance  is  completed  plus  a 
delay  time.  If  the  part  is  NRTS,  CAUSE  PTARR,  the  arrival  of  a  new 
part  from  the  depot.  CALL  CLASS  to  classify  the  aircraft.  If  this 
is  the  start  of  a  cannibalization,  increase  the  number  of  cannlballza- 
tions  of  the  part. 

Part  IV  -  Not  Enoigh  Men 

When  men  are  not  available,  increase  the  number  of  man  malfunctions. 
Check  if  men  will  ever  be  available  to  do  the  maintenance.  If  men  can 
never  be  available  because  the.  number  required  exceeds  the  maximum  ever 
available,  reduce  the  men  required  to  the  maximum.  CAUSE  CLMTC  to 
recall  MICE  to  try  again  to  start  maintenance.  If  men  should  be  avail¬ 
able  at  some  time,  CALL  CLASS  to  classify  the  aircraft. 

C.LASS  to  classify  the  aircraft. 

ENDOG  EVENT  MTN 

End  of  maintenance,  CAUSED  by  MTCE  which  is  the  start  of  mainten¬ 
ance.  CALL  RCRDW  to  remove  the  malfunction  from  work  in  process  of  each 
shop  used.  If  the  malfunction  was  completed  on  overtime,  accumulate 
overtime  hours  for  each  shop;  do  not  reassign  men.  If  not  completed  on 
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overtime,  the  men  are  returned  to  their  respective  chops.  CALL  r^KMN 
to  attempt  to  assign  new  work  to  the  available  men.  If  this  vatJ  a 
cannibalization,  then  do  not  reassign  these  men,  but  CALL  MICE  to  start 
the  replace  action  with  them. 

If  a  regular  preflight,  postflight,  or  ground  alert  malfunction, 
reduce  the  number  of  red-x  (if  critical).  CALL  RDM  to  destroy  and 
remove  the  malfunction  from  the  set  of  malfunctions  belonging  to  this 
aircraft.  Reduce  the  number  of  outstanding  malfunctions  and  the  :iUin- 
ber  of  maintenance  malfunctions. 

If  the  aircraft  is  still  in  preflight  and  has  no  more  outstanding 
malfunctions,  re-classify  the  aircraft  into  preflight.  If  it  is  in 
preflight  but  still  has  outstanding  malfunctions,  CALL  CLASS  to  classify 
the  aircraft.  If  this  maintenance  was  on  the  last  preflight  malfunc¬ 
tion,  CAUSE  WTSOR  either  now  or  later,  depending  on  the  sortie  time. 

If  the  aircraft  is  not  in  preflight,  and  still  has  outstanding  mal¬ 
functions,  CALL  CLASS  to  classify  the  aircraft.  If  this  was  the  end 
of  maintenance  on  a  ground  alert  malfunction,  classify  the  aircraft 
back  on  ground  alert. 

If  an  end  of  uplo.od  action,  GALL  PREFi'  to  start  a  preflight.  If 
the  end  of  a  download  action,  CALL  STNXS  to  start  the  next  sortie.  If 
this  maintenance  is  the  end  of  a  service  action,  and  the  current  sortie 
was  an  air  alert  or  a  training  mission,  CALL  SPOFL  co  start  postflight. 
But  if,  aft(?r  a  service  action,  the  current  sortie  was  a  ground  alert, 
CALL  STEAM  t:o  download  (if  necessary).  Otherwise  CALL  STNXS  to  attempt 
to  start  the  next  sortie. 

SUBROUTINE  OUT  (A,B,C,D,E) 

Called  by  all  routines  with  4  words  of  information  whicli  will  be 
stored  on  the  binary  tape. 

FUNCTION  PCARD  (CARD) 

Sets  the  priority  of  a  card  equal  to  the  priority  of  the  corres¬ 
ponding  malfunction. 


ENDOG  EVENT  PDLAY 

End  of  postflight  delay,  CAUSED  by  POSFL  if  tliere  are  postflight 
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malfunctlons .  CALL  KTCE  to  attempt  to  start  work  on  each  postflight 
malfunction. 

ENDOG  EVENT  POSfL 

End  of  postfllght,  CAUSED  by  SPOFL.  Discovers  postfllght  malfunctions; 
Increases  the  number  of  red-x  malfunctions  each  time  a  critical  malfunction 
Is  discovered.  CALLS  DELAY  to  set  the  postfllght  delay  time  and  causes 
PDLAY  i’t  the  end  of  that  time.  If  no  postfllght  malfunctions  exist,  It 
tests  if  a  down  load  is  necescary  and  CALLS  STEAM  to  start  this  action. 

If  i.  j.s  not  necessary  then  STNXS  is  C/ILLED  to  start  next  sortie. 

ENDOG  EVENT  PREFL 

End  of  preflight i  CAUSED  by  PREFT,  Discovers  preflight  malfunc¬ 
tions  and  CALLS  MTCE  for  each,  and  increases  the  number  of  red-x  for 
each  critical  one.  If  there  are  no  outstanding  malfunctions  it  CAUSES 
WTSOR  at  the  pro^'er  time. 

SUBROUTINE  PREFT (1) 

Start  of  a  preflight,  CALLED  by  SORT".  If  ~crafc  is  standing  when 
sortie  is  read  in,  and  it  does  not  need  an  d,  CALLED  by  MTN  if 

when  read  in  the  aircraft  needed  an  upload  action.  CALLED  by  SORIE 
when  aircraft  on  ground  alert  and  is  going  next  on  an  air  alert 
since  it  then  vjil.  1  not  need  sem^ice  or  uploading  or  dovmloading  and 
will  not  have  postflight  malfunctions.  Or  CALLED  by  STNXS  if  the  next 
sortie  data  had  been  read  in  and  the  aircraft  does  not  need  an  upload 
action.  If  this  sorll*:'  has  already  been  cancelled,  file  aircraft  in 
standing.  If  there  is  time  to  do  the  preflight,  CAUSE  PREFL  for  end 
of  pief light  time  and  CAUSE  CLffTC  for  those  malfunctions  discovered 
1/3  or  2/3  throuj’h  preflight.  If  too  late  for  preflight,  CALL  CANCL 
and  file  aircr.ift  in  standing. 

SUBROUTINE  (U,M,X) 

CALLED  by  MTCE  w!u  :i  entMigh  men  are  not  available  for  a  critical 
m.i  1 1  ui\  ■  t  loti .  Deti'rm'ne  If  pre- erapt  ion  is  possible  by  seeing  if  bench 
lepai!;.  tool  i  1  il-i  I'le  itiuiired  number  o!  men.  If  still  not  enough  men, 


it  then  checks  vdii;  >•  flight  line  ma I functioas  caii  be  stopped.  If  men 
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can  be  made  available  it  notes  that  pre-emption  is  possible.  But  if 
it  finds  that  pre-empting  can  not  furnish  enough  men,  it  notes  then 
that  pre-emption  is  not  possible. 

EN!X)G  EVENT  P'^\RR 

Part  arrival  from  depot,  CAUSED  by  when  the  -art  had  been 

removed  and  was  found  not  reparable  this  station.  Base  stock  is  in¬ 
creased  by  one,  and  USEPT .  is  CALLED  to  attempt  to  use  the  part  on 
any  waiting  malfunction. 

ENDOG  EVENT  PTREP 

End  of  bench  r£;pair,  CAUSED  by  CREPT .  Increases  the  number  of 
parts  available  by  one,  increases  tne  men  available  in  the  shop  used 
by  one,  and  decreases  by  one  the  number  of  reparables  in  process  for 
that  shop.  CALLS  USEPT  to  attempt  to  use  the  part  on  any  waiting  mal¬ 
function,  and  calls  USEMN  tu  attempt  to  use  the  newly  freed  man. 

SUBROUTINE  PTYMR  (LjM) 

CALLED  by  MICE  and  FCRDM.  Sets  the  priority  to  u.se  men  required 
for  a  malfunction. 

SUBROUTINE  PTYPR  (L,N) 

CALLED  by  Setij  the  priority  to  use  a  pai  L  when  it  becomes 

available. 

SUBROUTINE  PTYRR  (Rf.?AR) 

CALLED  by  CREPT  if  th  ■  reparable  had  been  in  queue  or  CALLED  by 
EE  PAR  if  the  reparable  has  j’.JSt  arrived  at  the  shop .  Sets  the  priority 
of  the  reparable  equal  to  the  present  tir’',  making  the  qvu'ue  a  firs'- 
in  fir.::t-out  d  i  .sc  i  p. !  ine  . 

SUBROUTINE  RCRDM  (L.M) 

CAl.LED  by  MTCE  wtu*n  maintenance  is  started,  or  C.AI.LKD  by  STO.MT 
when  a  malfunction  is  not  critical  and  is  being  postponed.  Removes 
the  card  of  the  malfunction  i  rom  the  set  of  rna  I  f  unc  t  i  ons  waiting  tor 
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men  of  the  required  shop  and  from  the  set  of  queues  of  the  mslfimction. 
Reduces  the  number  of  malfunctions  waiting  for  'den  of  the  shop. 

SUBROUTINE  RCRDU  (L,M) 

CALLED  by  tfIN  at  the  end  of  maintenance  or  CALLED  by  TERM  when 
maintenance  is  stopped.  Removes  the  card  of  the  malfunction  from  work 
In  process  of  each  required  shop  and  reduces  the  number  of  work  In 
process  of  each  required  shop. 

SUBROUTINE  REM  (I,J,L) 

CALLED  by  MTN  at  the  end  of  maintenance  or  CALLED  by  CANCL  to 
destroy  malfunctions  that  would  have  been  postflight  malfunctions  had 
the  aircraft  flown.  Destroys  the  malfunction  and  the  man  requirements  of 
the  malfunction, 

ElUXXI  EVENT  REPAR 

The  end  of  shipment  of  a  reparable  to  the  shop,  CAUSED  by  KICE 
when  maintenance  begins.  If  the  ntan  to  repair  is  available  CREPT  is 
GALLED  to  start  the  bench  repair.  If  the  man  to  repair  is  not  available, 
PTfRR  is  CALLED  and  the  reparable  is  added  to  the  queue  of  reparables 
waiting  for  a  man  from  the  required  shop. 

ENDOG  EVENT  SHIFT 

Shift  is  CAUSED  at  the  beginning  of  simulation  by  the  START 
routine.  After  this  SHIFT  is  CAUSED  by  itself.  Shift  number  is  changed 
to  1,  'L,  or  3  and  it  is  determined  if  time  is  a  weekday  or  a  weekend, 

Ali  sho'  s  arc  mannod  with  the  nujnber  of  men  spetltied  for  the  prrticular 
'ay  and  shift.  All  bencii  '..ork  is  stopped  by  tiling  work  in  a  queue  of 
reparables  o!  each  shop  utiless  heiuh  w(,>rk  can  te  finished  within  a 
specified  overl.ip  time.  Work  in  process  t  each  shop  is  »  i  rn;  in.a  t  e  d 
liy  GAL.LINC.  TERM  unless  held  on  i)vert  ime  or  re-started  ina  ediatelv  ,is 
lollows:  If  i  scrcKt  -ii  t  ion  I’r  <  '’.lomui  alert  ina  1  tunc  t  ion ,  (.ontiinn- 
on  overt  line.  Il  a  ma  I  i  uiu  t  i  cm  i  .ea  b»‘  Cv'npleted  witliln  the  overlap 
time,  contltn.e  on  overtivu.  It  .i  n.i  i  1  v;nct  ion  is  (.fitKal,  assien  siev 
:'cn  i  r'j'ied  la  t  e  1  y  ,  hnt  it  enou,;!-.  lu  w  in-.m  aie  nc't  a  v  a  i  1  a  i)  i ,  ?*ie;'i  lOntiina, 
i)n  overtime.  Then  GaLL  "cSKMN  to  tiv  tv)  .issi',".  tin  lers;  ic.in,,'.  n.t  v 


n 
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to  the  malfunctions  that  had  oeen  terminated*  to  waiting  malfunctions 
and  then  to  bench  repair.  CAUSE  SHIFT,  end  of  nexc  shift  at  a  specified 
time,  usually  8  hours  or  1/3  of  a  day. 

ENDOG  EVENT  SOKTE 

The  end  of  a  sortie  la  CAUSED  by  WTSOR.  If  the  sortie  was  a  train¬ 
ing  mission  or  an  air  alert,  STEAM  Is  CALLED  to  start  a  service  action. 

Otherwise  the  current  sorci;?  was  a  ground  alert!  If  the  following 
sortie  of  the  aircraft  will  be  a  ground  alert  or  an  air  alert,  the 
present  sortie  is  finished,  and  if  the  next  sortie  has  been  read  in, 

PHEFT  is  GALLED  to  start  preflight  for  this  next  so* .  ;  iii  not  read 

in,  the  aircraft  is  placed  in  standing.  However  if  the  current  ground 
al''rt  aircraft  is  next  going  on  a  training  mission,  STEAM  is  CALLED  to 
start  a  service  reducing  the  amount  of  fuel. 

EXOG  EVENT  SORTI 

The  aircraft  number  and  the  type  of  sortie  is  read  in.  Test  the 
class  of  the  aircraft,  if  the  aircraft  is  presently  in  preflight,  wait¬ 
ing  for  takeoff  time,  on  a  sortie,  or  on  a  ground  alert  the  new  sortie 
is  immediately  cancelled.  Otherwise,  read  the  rest  of  the  sortie  data. 
CAUSE  Cl.SE  to  cancel  the  sortie,  if  necessary,  at  the  maximum  lateness 
time,  depending  on  the  t>'pe  of  sortie.  If  the  aircr^t  is  presently 
in  standing,  remove  it  from  standing  and  CALL  STEAM  to  start  an  upload 
if  weapons  are  required  and  are  not  already  on  board,  or  CALL  PREFT  to 
start  the  pre flight.  If  the  aircraft  is  in  any  other  category,  CAUSE 
LTFRF ,  vhicb  again  trys  to  prefli:'ht  at  tb.e  latest  r  imt  to  get  the  air¬ 
craft  ready, 

SUBROUTINE  SPOFL  '!) 

Start  of  'ivist  I  1  i  'bl  ,  CALLED  'nv  ^fTN  .it  t  iu-  eid  oi  service.  Cl.’-ssitios 
t'.e  aircraft  i  lU  o  p^stsli-.ht  asid  CAUSES  POSEI. ,  tiir  iru!  i'l  post  1  1  i 'jit  . 

’iter  the  prop-'-  post  ill  -lit  tls'ie. 

EXix;  star; 

Th.  st.irt  ot  r  1  ui!  .it .  Sets  the  liict  Sittit-hv  to:  :iie  liist 
So!  ,i.!  V  t  ’  oc  V  ill  '  'lie  t  1  ;•  1 i  i  s  I  f  i’vi  i:;  the  :  i  !  1 ,  i  I  1  ;  1  > ' ,  .ii;,.; 
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CAUSES  SHIFT  imnediately  to  man  each  shop  vrLth  the  men  for  that  day 
and  shift. 


SUBROUTINE  STEAM(I,J) 

The  attempt  to  start  upload,  download  or  service  team  action. 
CALLED  by  KIN  at  the  end  of  service  of  an  aircraft  going  from  a  ground 
alert  or  an  air  alert  to  a  training  mission,  to  start  a  download. 

CALLED  by  POSFL .  the  end  of  post  flight,  if  no  malfunctions  exist,  but  a 
download  is  necessary.  CALLED  by  SOKTI  when  the  sortie  data  is  read 
in  and  the  aircraft  ia  ready  to  start  on  upload.  CALI.ED  by  SORTE  at 
the  end  of  an  air  alert  or  training  mission  to  service  and  CALLED  by 
SORTE  if  a  ground  alert  is  next  going  on  a  training  mission  and  there¬ 
fore  needs  a  service  action.  CALLED  by  STNXS  to  start  a  download  or 
an  upload,  if  eitlier  is  necesaary.  A  criticr;!  malfunction  is  created, 
setting  its  repair  time,  shops,  men,  and  skills,  depending  on  the  type 
of  action,  IfTCE  is  CALLED  to  attempt  to  start  the  work.  If  this  is 
an  upload  action  the  number  of  aircraft  with  weapons  is  increased,  and 
if  a  download  action  the  number  of  aircraft  with  weapons  is  decreased. 


SUBROUTINE  STNXS (1) 

Attempt  to  start  the  next  sortie,  CALLED  by  LTPRE  if  the  aircraft 
is  In  postflij’ht  delay  or  postflight  maintenance  or  waiting  men  or  parts 
for  postfli’Jit  maintenance  and  there  are  no  critical  malfunctions. 

Called  by  MTN  at  the  end  of  postfl  .ght  maintenance.  CALLED  by  POSFL 
at  the  end  of  postfltgnt  and  there  are  no  postflight  rualfunct  fous  and 
no  Jownl‘"'ui  necessary.  If  a  dovmload  Is  necessary,  CALL  STEAK  to  start 
t!u’  lownl  ).u!  ac' ion.  If  the  next  sortie  data  has  not  been  read  in,  file 
t!u  aircr.itt  in  Otherwise,  if  the  next  sortie  needp  weapons, 

CAI.L  STEAiM  to  start  the  upload  action.  If  no  weapons  required,  CALX, 
PREIT  to  ?st.srl  prefll;.d>t  on  the  next  sortie. 


SUBROtTINE  SrWT-  (I,K,CI) 


A  ’  at  t  einp? 
i.i  i  t'. t  r  n.i  iK  i-  at 
■  t  'M)  ; '  I s  f  !.  !  i  ’.h t 


£  >'  jifop  ilfi  Int  enance ,  CAI.LED  hy  CL$E  to  stop  profll.-.hv 
the  imuri  late  take-of!  t  Lmc  ,  or  CALLED  bv  LTPRE  £ 
naliUenanc,  ,jt  the  !.<tert  tine  to  start  a  prefll-.ht  toi 


he 


sort  If 


It  any  critical  na  1  fur.ct  ions  exist,  the  rtu!  Int  er.anc  e 
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must  continue.  If  no  critical  malfunctions  exist  vork  can  he  stopped. 
Any  remaining  preflight  malfunctions  are  changed  to  postflight  mai* 
functions  on  this  sortie,  or  any  remaining  postf light  malfunctions  are 
changed  to  postflight  malfunctions  after  the  following  sortie.  For 
those  malfunctions  that  are  jn  process,  TERM  is  GALLEl)  to  tenpiaate 
maintenance.  And  those  malfunctions  waiting  in  a  queues  for  men  are 
removed  from  the  queues  by  CALLING  RCRDM. 

SUBROUTINE  TERM(L ,MM, J) 

Termination  of  maintenance,  CALLED  by  DOPRE  when  pre-emption  of 
men  is  necessary  and  possible.  CALLED  by  STOMI  in  order  to  sortie  or 
start  the  next  preflight  on  time.  Or  CALLED  by  SHIFT  if  the  mainten¬ 
ance  is  not  critical  and  would  extend  past  the  overlap  time.  Repair 
time  is  changed  to  the  amount  of  repair  time  remaining.  The  IfTN  event 
is  CANCELLED,  RCRDW  is  CAIliED  to  remove  the  mal function  from  work  in 
process  of  each  shop.  Wl^en  called  by  SHIFT  or  DOPRE.  FCRI»i  is 
GALLED  to  file  the  malfunction  into  the  set  waiting  for  men  of  its  re¬ 
quired  shops.  When  CALLED  by  DOPRE,  CAILM  is  CAUSED  to  attempt  to  use 
men  made  available  du^^lng  pre-emption.  And  when  CALLED  by  STOMT,  USEMN 
is  GALLED  to  attempt  to  nse  the  newly  freed  men.  Then  tne  aircraft 
maintenance  mslfunctions  are  decreased,  and  the  number  of  man  malfunc¬ 
tions  is  increac  u,  CLASS  is  GALLED  to  re-classify  the  aircraft, 

SUBkOUTIIJE  USEMN (M) 

Ar;  attempt  to  use  available  men.  CALLED  by  MTN  at  the  end  of 
maintenance,  CALLED  by  TERM  when  men  are  freed  b>  stopping  work  on 
other  malfunctions,  CALLED  by  CALLM  to  see  if  men  made  free  fay  pre¬ 
emption  can  work  on  other  rcctinteaauct.  Or  CALLED  by  SHUT  to  attempt 
to  assign  the  nev;  men  who  were  not  put  to  work  imn:ediately  on  Jobs  in 
process.  If  there  are  r;^al functions  waiting  for  the  available  men, 

MTCE  is  CAILSD  tc  attempt  to  sc.ire  maintenance.  If,  after  starting 
r.s  many  maiuteaance  jobs  as  possible,  men  Kie  still  available,  BENCH 
is  CALliSD  to  repair  waiting  parts,  if  any. 

SUBROUTINE  USEPT(N,J) 


An  attempt  use  a  part.  CALLED  by  PfREP  when  leptijr  of  a  part 
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is  liinished.  Or  CALLED  by  PIAHR  \^hen  a  part  arrivea  from  the  depot. 

If.  there  are  any  outstanding  cannibal Izat ions  of  the  part,  the  part  is 
replaced  on  a  ficticious  aircraft.  If  there  were  no  cannibalizationa, 
it  searches  for  any  malfunctions  waiting  for  the  part.  If  none,  the 
part  remains  in  base  scock.  If  any  me 1 functions  were  waiting  for  the 
part,  MXCF  is  CALLED  to  attempt  to  start  maintenance. 

ENDOG  EVENT  WTSOR 

End  of  wait  for  sortie.  CAUSED  by  PREFL  if  there  are  no  malfunc¬ 
tions  to  fix  before  sortie  time,  CAUSED  by  CLSE  if  simulated  time  Is 
past  sortie  time  and  non  critical  malfunctions  have  been  stopped.  Or 
CAUSED  by  at  the  end  of  preflight  maintenance.  If  the.  sortie  has 
already  been  cancelled,  file  the  aircraft  in  standing.  If  not  cancelled, 
CAUSE  SOKTE,  the  end  of  the  sortie  to  occur  after  the  proper  sortie 
length.  If  this  sortie  is  a  ground  alert,  CAUSE  GLMTC  to  call  mainten¬ 
ance  on  the  proper  day  of  discovery  of  ground  alert  malfunctions, 

FiTNCTlON  2;ER0  (CASD) 

Malces  3  ranked  set  a  first- in  first-out  set. 
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Appeadix  C 

EXPIAKATIOS  OP  ?ffiSSAGES  OH  THE  ANALYSIS  ?A?£ 

4  Routine  Word?: _ Explanation _ _ _  . _ 

8  CANCL  I  After  a  tortie  hns  been  cancelled  and  the 

TYNXS(I)  malfunctions  reoaoved  and  destroyed,  list  the 
TM1^XS(I)  aircraft  'timber,  type  of  sortie,  end  the  time 
it  was  scheduled  tc  ti^ke  off. 

When  reclassifying  an  aircraft,  If  there  are 
part  nsalfunccions,  man  njalfuflctiona,  or  it 
is  In  maintenance,  list  the  aircraft  number, 
the  class  of  the  aircraft,  and  the  number  of 
critical  malfunctions. 

After  maintenance  has  been  started  or  attempt¬ 
ed  on  malfunctions  discovered  during  preflight 
or  during  a  ground  alert,  list  the  aircraft 
number,  the  part,  a  flag  shoving  if  the  mal-  ^ 
function  is  waiting  for  the  part  (CLSSP(h)=l) , 
art'-i  a  flag,  showing  if  this  attempt  is  merely 
a  retry  sc  starting  msintenance  (K=^l)  . 

1  CREPT  M  After  the  start  of  every  bench  tepsir,  list 

th^  shop  used,  the-  laen  left  available  in 
NRI?(M)  these  shops,  the  number  of  reparable s  in  this 
NQREP(rl)  shop,  and  the  repara blea  in  queue  in  this  shop 

When  doing  a  pre-emption  from  bench  repair, 
list  the  shop,  the  decreased  n’jrabejt  of  re- 
parablea  in  process,  «nd  the  increased  number 
of  reparables  in  queue v 

3S  EIJDSM  When  Che  end  of  simulation  time  arrives, 

routine  38  shows  zero,  which  is  the  signal 
that  simulation  is  over. 

After  a  malfunction  is  filed  in  each  required 
shop  to  wait  for  men,  list  the  shop,  the  num¬ 
ber  of  malfunctions  waiting  men  of  that  shop, 
and  a  flag  showing  if  this  filing  in  queue  is 
happening  at  a  shift  cheige  (FL\G*l). 

14  FCRPW  M  When  work  begins,  a  card  is  filed  tn  each 

NWXP(M)  shop  in  use,  the  shop  and  nu.aber  of  jobs  in 
process  is  listed. 


All  flags  are  either  0  or  1 .  0  indicates  the  no  or  not  condition 

and  1  the  can  or  yes  condition. 


11  CLMTC  I 

N 

CLSSP(L) 

K 


9  CLASS  I 

CLAS(I) 

NREDX(I) 


-69- 


#  Routint^  Words _ Explanation 


37  LTFRE 


3  MICE 


I  At  the  latest  time  to  start  a  preflight  on  a 

CLAS(I)  nev  sortie^  an  attempt  to  start  the  new  sortie 

Cl  Is  made.  The  aircraft  mtmber,  the  classifica¬ 

tion  of  the  aircraft,  and  a  flag  shoving  If 
the  prefllght  can  be  started  Is  listed. 


M 

NMENAfM) 

SUB(B) 

NP 


At  the  start  of  maintenance.  If  both  men  and 
parts  are  found  available,  list  the  shop  num¬ 
ber,  the  nev  number  of  men  available  In  that 
shop,  the  number  of  men  substituted  to  that 
shop  (e.g.  —  for  a  skilled  shop,  +  for  an 
unskilled  shop),  and  a  flag  shoving  if  a  pre¬ 
emption  has  taken  place. 


7  MICE 


M 

EXTRA 


When  extra  men  are  brought  from  home  to  vork 
vhen  there  are  .lot  enough  men  ever  —  list 
the  shop  and  number  of  extra  men. 


4  MTCE 


4  MTCE 


4  IffCE 


I  After  the  start  of  maintenance  is  attempted, 

wOM£M(I/  whether  both  men  and  parts  vere  availcble  to 
NCS-iISKI)  start  or  not,  list  the  aircraft  that  is  to  be 
NOPIM(I)  worked  on,  the  number  of  maintenance  malfunc¬ 
tions,  man  malfu'.ctions  and  part  malfunctions. 


N  Also  list  the  part  required  (if  any),  NC=1 

NC  if  this  is  a  cannibalization,  the  number  of 

NPRTA(N)  parts  available  for  this  part,  and  the  num- 
NHALP(N)  her  of  aialfunctions  waiting  for  that  part. 


NCANB(N) 

MI 

KK 

NREDX(I) 


And  list  the  number  of  cannibalizafcions  of 
this  part,  MI»1  if  mc’^  found  available, 

the  type  of  the.  malfunction;  and  che  number 
of  critical  malfunction  on  tnis  aircraft. 


5  MTN 


39  MTN 


6  MTN 


MM  At  the  end  of  maintenance,  when  men  are  re- 

NMENA(MM)  curned  to  their  shops,  list  the  shop,  the  nev 
SUB(X)  number  of  men  available  for  this  shop,  and  the 

number  of  men  substituted. 


M 

OVTMH 


At  the  eud  of  maintenance,  if  men  worked  over¬ 
time,  .list  the  shop  and  the  overtlrae  hours 
worked. 


I 

NOMNM(I) 

NOMEM(I) 

NOPTM(I) 


At  the  end  of  maintenance,  list  the  aircraft 
nv.vr.be r,  the  number  of  itian  malfunctions,  main 
tenance  malfunctions,  anti  part  malfunctions 
left  on  the  aircraft. 
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#  Routine  Words  Explanation 


6  MTN 


15  PDIAY 


CLAS(I) 

NREDX(I) 

K 

KT 


At  the  end  of  maintenance,  list  the  classi¬ 
fication  of  the  aircraft,  the  number  of  cri¬ 
tical  malfunctions  remaining  on  the  aircraft, 
the  type  of  this  malfunctico,  and  the  cri¬ 
ticality  of  this  malfunction. 


N  At  the  end  of  postflight  delay  when  mainten- 

CLSSP(L)  ance  is  attempted  cm  each  po£''flight  malfunc¬ 
tion,  list  the  part  required  and  a  flag  show¬ 
ing  if  the  malfunction  is  waiting  for  the  part 
(CLSSP(L)=1). 


16  POSFL 


1 

NOOSM(I) 

NSEDXCI) 

CLAS(I) 


At  the  end  of  postflight  when  malfunctions 
are  discovered  and  before  a  delay  or  a  down¬ 
load,  list  the  aircraft  number,  the  nximber  of 
outstanding  malfunctions,  how  many  critical, 
and  the  classification  of  the  A/C. 


17  PREFL 


18  PREFL 


N 

CLSSP(L) 


At  the  end  of  preflight,  for  each  mal.functioh 
discovered,  list  the  part  required  and  the 
same  flag  as  in  #15. 


IX  At  the  end  of  preflight  when  either  nainten- 

NOOSM(IX)  ance  or  wait  for  sortie  start -j,  list  the  alr- 
CLAS(IX)  craft,  the  number  of  outstanding  malfunctions, 
NREDX(IX)  the  class  of  the  aircraft,  and  the  niimber  of 
critical  malfunctions  in  the  aircraft:. 


24  PPvEFT 


19  PTREP 


I  After  the  attempt  to  start  a  preflight,  list 

CLAS(I)  the  aircraft,  its  classification,  and  the 
NACST  number  of  A/C  standing. 


M 

NMENA(M) 
NRIP (M) 

N 


At  the  end  of  bench  repair,  after  the  man  has 
been  returned  and  the  reparables  in  process 
decreased,  list  the  shop,  the  men  available, 
the  number  of  reparables  in  process  and  the 
part  which  was  just  repaired. 


2  RCRDM 


M 

NMALM(M) 

I 

NOMNM(I) 


When  a  malfunction  is  removed  from  queue, 
list  the  shop,  ch'  new  number  of  malfunctions 
waiting  for  men  of  the  shop,  the  aircraft 
with  this  malfunction,  and  the  number  of  man 
malfunctions  left  on  that  aircraft. 


20  RCSDW 


M 

NWIP(M) 


After  removing  a  card  from  work  in  process, 
list  the  shop  and  the  new  number  of  work  in 
process . 
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#  Routine 
21  REPAR 

10  RUSH 

31  SHIFT 
36  SHIFT 

23  SORTE 

25  SORTI 

26  SPOFL 

27  START 

28  START 

28  START 

29  STEAM 


Words 


Explanation 


M  After  an  atten<pt  has  been  made  to  start  bench 

NQREP(M)  repair  on  a  reparable,  list  the  shop,  number 
NMENA(M)  of  reparables  in  queue,  and  the  number  of  men 
available  in  the  shop. 

KJ  When  a  pre flight  or  post  flight  malfunction 

R  is  to  be  completed  in  less  time  than  required 

so  that  a  sortie  will  not  be  cancelled,  list 
the  type  of  the  mal function  and  the  new  re¬ 
pair  time. 


SFTNO 


At  the  end  of  a  shift,  list  the  shift  number. 


M  At  the  beginning  of  a  new  shift,  after  assign- 

NMENA(M)  ing  those  men  who  start  a  job  immediately, 

list  each  shop  and  the  number  of  men  available. 

I  At  the  fnd  of  each  sortie,  list  the  aircraft 

NACST  number,  the  number  of  aircraft  standing,  the 

CLAS(I)  classification  of  the  aircraft  that  has  just 

TCURS(I)'^2  finished  the  sortie,  and  the  type  of  sortie. 

I  When  a  new  sortie  is  read  in,  if  the  sortie 

NTYNX  is  cancelled  immediately,  list  the  aircraft 

number  and  the  type  of  the  sortie. 


When  starting  each  postflight,  list  the 
aircraft  number. 


FSAT  At  the  start  of  simulation,  the  first  Satur- 

NSHCP  day  and  the  nuiober  of  shops  is  I5.3ted. 

NMASD(M,1)  At  the  start  of  simulation,  the  week  day 
NMASD(M,2)  manning  for  all  three  shifts  is  listed  along 
NMASD(M,3)  with  the  shop  number, 

M 


NMASE(M,1)  At  the  start  of  simulation,  the  weekend  man- 
NMASE(M,2)  ning  for  the  three  shifts  is  listed  £or  each 
NMASE(M,3)  shop,  plus  the  shop  number, 

M 


I  When  the  start  of  team  action  is  attempted, 

CIAS(I)  list  the  aircraft  number,  the  classification 

NACWW  of  the  aircraft,  the  number  of  aircraft  with 

NACST  weapons  and  the  munber  of  aircraft  standing. 
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y/  Routine  Words _ Explanation 


30  STNXS 


33  STOMT 


33  STOMT 


I  When  the  start  of  a  new  sortie  is  attempted, 
CLAS(I)  list  the  aircraft,  it's  classification,  and 
NACST  the  number  of  aircraft  standing. 


N  When  the  next  sortie  must  start  preflight, 

NMALP(N)  stopping  maintenance  is  attempted  by  check¬ 
ing  if  there  are  any  critical  malfunctions. 
For  each  malfunction  terminated,  list  the 
part,  and  the  number  of  malfunctions  waiting 
for  the  part. 


I  This  message  appears  if  s  successful  attempt 

999  has  been  made  to  stop  maintenance  and  start 

the  next  sortie. 


39  TERM 


32  TERM 


M 

OVTMH 


When  terminating  maintenance,  if  men  were 
working  overtime,  list  the  shop  and  the  over 
time  hours  used  for  this  shop. 


M 

NMENA(M) 

J 

TLNO(L) 


When  maintenance  is  terminated  for  each  shop 
required,  list  the  shop  that  was  working  on 
the  malfunction,  the  number  of  men  available 
in  that  shop  now,  J  to  show  if  termination 
was  called  by  STOl^T,  DOPRE,  or  SHIFT,  and  the 
aircraft  number  on  which  maintenance  is  being 
terminated. 


22  USEMN 


NRIP(M) 

NQREP(M) 

M 

NMALM(M) 


When  men  have  been  made  available  and  an 
attempt  to  reassign  them  has  been  made,  list 
the  number  of  reparables  in  process  for  the 
shop  with  the  men,  the  number  of  reparables 
in  queue  waiting  those  men,  the  shop  number, 
and  the  number  of  malfunctions  waiting  for 
men  from  that  shop. 


3A  USEPT 


34  USEPT 


N  When  a  part  becomes  available  and  there  was 

NMALP(N)  an  outstanding  cannibalization  on  that  part, 
list  the  part  and  the  number  of  malfunctions 
waiting  for  this  part. 


N 

NMALP(N) 

NOPTM(I) 

I 


After  attempting  to  use  a  newly  arrived  part 
on  a  regular  malfunction,  list  the  part,  the 
number  of  malfunctions  waiting  that  part,  the 
number  of  part  malfunctions  on  the  aircraft 
on  which  the  part  is  used,  if  any,  and  the 
aircraft  number. 
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_ P acine  Words _ Explanation 


3!i  WTSOR 


I  At  the  end  of  a  vait  for  sortie,  the  aircraft 

IJ  either  sorties  or  is  cancelled.  List  the  air 

Y  craft  number,  IJ  (an  indicator  to  note  if 

JJ  sortie  is  cancelled  (IJ®1)),  &  (the  lateness, 

if  any),  and  the  type  of  the  sortie. 


38  ERR  9999  When  an  error  has  been  called,  9999  indicates 

that  the  program  stopped  due  to  the  error  as 
compared  to  the  normal  prograr  exit. 
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Appendix  D 
PROGRAM  LISTING 


-/ 


SDCLATOR 


•f 

■f 

♦ 

■f 

•f 

*■ 

■f 

♦ 

■f 

•f 

■f 

♦ 

♦ 

♦ 

♦ 

■f 

♦ 

♦ 

•f 

•f 

•f 

♦  T  CRIT 

♦ 

♦ 

♦ 

♦  T  REPTM 

♦T  MALFN84  4 

♦  T  LRECJS 

♦ 

♦ 

♦ 

4- 

♦ 


4- 

T 

NRTS 

♦ 

T 

MREPP 

♦ 

T 

SMOPN 

4N 

CANA84 

♦ 

♦  N 

RFPAR8 

T 

NOREP 

♦ 

»■ 

♦ 

T 

PQREP 

4 

T 

SQSEP 

♦ 

♦ 

♦ 

♦ 

♦ 


lAC 

El/1 

I 

2PRT 

El/1 

I 

3SHOP 

E  / 

I 

7RSHP 

F* 

8ENOSE 

1 

F 

97CURS 

1 

I 

lOTMNXS 

11  1 

F 

IITYFLS 

12/4«I 

IITYNXS 

11/4*1 

IIPFLAG 

13/4 

1 

12NPREM 

2 

I 

laSELEN 

2 

F 

14N00SM 

11/2 

I 

14NREDX 

12/2 

I 

15CLAS 

11/2 

I 

15PREFN 

12/2 

I 

16NOPTM 

1 

I 

17NOWEP 

I  * 

18SENOO 

11/2 

I 

18SENON 

12/2 

I 

19MAXMN 

I  * 

20TMPOT 

F* 

21DELAG 

F* 

22POOLA 

F* 

12/4 

I 

23NWIP 

1  / 

I 

24FMLFN 

2 

I 

25CLSEE 

i 

I 

26SACSr 

11/2 

I 

26PACST 

12/2 

I 

21/1 

f 

27FWIP 

11/2 

I 

27LWIP 

12/2 

I 

52/2 

i 

28PREOy 

F# 

29FMALP 

lli./2 

I 

29LMALP 

12/2 

I 

30NPRTA 

1 1  /  2 

I 

30NCANe 

n/4 

I 

30NMALP 

14/4 

1 

62/4 

I 

31SHPDY 

F* 

31/4 

I 

32NORCP 

1 

f 

i 

13/4 

I 

330TCAN 

F* 

34NTEAM 

1 

I 

1  / 

F 

35SFTNO 

I 

36FSAT 

I 

37FACiT 

0 1  / 1 

! 

6  / 

I 

icNWASD 

2  / 

I 

5  / 

I 

A OF  lag 

I 

42NACST 

1 

hBNAOCP 

1 

<»4nao<:m 

I 

45NACWN 

I 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

WIP  1  »PCARO  L  X 

X 

X 

MALPl  ♦PTYP  L  X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


K  X  X 
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46LTP  1  I 

47IC0RE  7* 

4eTACTM  F* 

49Ni>AHN  2  I 

50WHFRE  1 

51EN0SH  F 

32NOMNM  1  I 

53NOMEM  1  I 

T  PTYR  2  /  F  550VLAP  F* 

56FOREP  11/2  I 
36LQREP  12/2  I 
57FRIP  li/2  I 
57LRIP  12/2  1 
61NMASE  2  /  I 
t 2M I SSD  1  I 
63FMALM  11/2  I 
63LKALM  12/2  I 
64NMENA  1  I 
65MAXLT  1  /  F 
66ISECL  1  I 
67NMALM  I  /  I 
68NRIP  1  /  I 
69LMLFN  2  1 

70LACST  I 

71FSUN  I 

72TMPRT  F* 

73NPOSM  2  I 
74TMrL$  1  /  F 
75WEPST  1  I 
76SHPN0  2  I 
77NOMN  2  I 
reSICLL  2  I 
79T!MEf  1  /  F 
80NACWW  1 

81RUN  I 

82TNS  I 

838IG  1  I 

84BI0TM  1  F 


T  OISCV  11/4  I 
T  PART  32/2  I 
T  TLNO  32/4  I 
T  TREPP  81/1  F 
T  FrEOO  bl/i  I 
T  CLSSP  61/4  I 
T  TDISC622/2  I 
T  FQUFS131/2  I 
T  LQUES132/2  I 

T  1^  INTM  4  /  F 
T  P-YP  11/  F 
T  PTYM  12  /  f 
T  PMkFN  71/2  I 


RIP  1 


ACSTO 

REQSl 

MALMl 


QUE 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

#PTYR  H  X 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

•ZERO  L  X 

•PCARD  LPCAROFX 

X 

X 

X 

X 

X 

X 

•  ZERO  i-ZERU  IX 

X 

X 

X 

X 
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•f 

V 

SMLFN 

72/2 

J 

♦ 

T 

PMALP141/2 

I 

■f- 

T 

SMALP142/2 

I 

+ 

T 

OTFCG613/4 

I 

T 

MTNR  62i/2 

I 

VT 

CARD  4 

+ 

T 

mlftn 

11/2 

1 

T 

PMALM 

21/2 

I 

+ 

f 

smalm 

22/2 

1 

+ 

T 

SQUES 

31/2 

I 

■f 

T 

PQUES 

32/2 

I 

•f 

T 

SWIP 

41/2 

I 

+ 

T 

PWIP 

42/2 

I 

♦  T 

MR  to  2 

+, 

T 

NOMEN 

11/4 

I 

•f 

T 

PREOS 

21/2 

I 

+ 

T 

SREQS 

22/2 

I 

♦ 

T 

SUB 

14/4*1 

T 

SXILL 

12/4 

I 

♦ 

N 

shflg 

32;  4 

I 

+ 

N 

PRIP 

71/2 

I 

4- 

N 

SRIP 

72/2 

I 

+ 

N 

REPLY 

4  / 

f 

N 

PCAN8 

31/2 

I 

■♦•N 

MTN  4 

+  N 

WTS0R4 

♦  N 

PR£;FL4 

+  N 

P0SFL4 

+  N 

CLSE  4 

■♦■N 

P0L.AY4 

+  N 

LTPRE4 

+  N 

SHIFT4 

+  N 

CLMTC4 

+  N 

S0RTE4 

■»-N 

CALLM4 

-t-N 

PTARR4 

N 

MEN 

42/2 

I 

+ 

N 

man 

3 

I 

4 

T 

STOVT63 

f 

♦ 

+ 

+ 


T  FG  614/4  ! 
T  CANAR641/2  I 
T  rANA04^2/2  I 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

QREPl  *PTYR  L  X 

MLFN2  *D1SCV  L  X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

MAXV  FX 

X 

X 

X 


X  X 
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SU8R0UTINE  9ENCH(M) 

SUBROUTINE  TO  DETERMINE  WHICH  BENCH  REPAIRS  SHOULD 
START  AT  SHOP  M»  CALLS  ON  CREPT  TO  CREATE  AND 
CAUSE  REPAIR 

10  IF  {NMEfiA(M))  EQ(0).GO  TO  IOC 
IF  QRtF{M)  IS  EMPTYtGO  TO  100 
REMOVE  FIRST  X  FROM  OREP(M) 

LET  NQREP(M)  «  NQREP^M)  -  1 
CALL  CREPT(X) 

GO  TO  10 

100  return 

END 


ENDOG  EVENT  CALLM 

ATTEMPTS  TO  START  i^AINT  USING  MEN  MADE  AVAILABLE 
DURING  PRE-EMPTION 
LET  M  •  MAN(CAULM) 

CALL  USEMN(M< 

100  DESTROY  CALLM 
RETURN 
END 


ENOCG  EVENT  CANA8 

STARTS  REMOVE  ACTION  ON  FICTITIOUS  AIRCRAFT 
let  L  *  MFNiCANABJ 
let  CANARIL)  «  0 

IF  MALFUNCTION  IS  NO  LONGER  AWAITING  PARTS.  RETURN 
IF  (CLSSPItU  EQ  <OJ»  GO  TO  IOC 
let  I  -  TLNOCli 
SENSE  LIGHT  1 
let  CANADdI  •  i 
LET  REPTMdJ  »0.6»REPTm{l  I 

call  mtceil.  nni 

lOU  DESTROY  CANAB 
RETURN 
END 


r»  n 
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SUBfiOUTINE  CANCLi 1) 

C  CANCELS  SORTIE  AND  DESTROYS  MALFUNCTIONS 

LET  RFLAGIM  »  0 
LET  KK  •  PREFNll) 

LET  J  «  SENONdJ 

10  00  TO  20t  FOR  EACH  L  OF  MlFN(J*I)*  WITH  COISCVILI)  EQ(1)» 
COR  (OISCVIL)  )  EOKS:) 

CALL  ROMCI.J*L) 

20  REPEAT  10 

CALLOUT!  8*I*TYNXS<U*«'2»TMNXSCn  »0) 

L  T  TMNXS!  U-TMFLSl  i ) 

LET  TYNXStn  »  TYFLS(I) 

LET  PREFN! U  •  0 

RETURN 

END 


1 

1 

1 


1 

1 

1 


C 

SUBROUTINE  CLASS! U 

IF  AIRCRAFT  IS  CURRENTLY  AOCP*AOCM  OR  ACMN  REDUCE 
NAOCP*  NAOCH  OR  NACMN  BEFORE  RECLASSIFYING  A/C 

LET  J  *  0 

IF  !CLAS(in  £0(4)»  LEY  J  *  1 
IF  (CLASdn  GR  !3M  GO  TO  25 
10  GO  TO  !21#22»23)  .CLASd) 

21  LET  NAOCP  »  NAOCP  -  1 
GO  TO  25 

22  LET  NAOCM  *  NAOCM  -  1 
GO  TO  25 

23  LET  NACMN  •  NACMN  -  I 

C  SEV  CLASS«3  if  THERE  ARE  ‘MAINTENANCE  MALFUNCTIONS* 

25  IF  (NOMEMIin  EQIO)*  GO  TO  60 
let  NACMN  *  NACMN  ♦  I 
LET  CLASd  J  »  3 
GO  TO  100 

C  SET  CLASS*?  IF  THERE  ARE  ‘MAN  MALFUNCTIONS* 

60  IF  (NOMNMdn  EQ!0).  GO  TO  70 
LET  NAOCM  ■  NAOCM  ♦  I 
LET  CLAS! i !  *  2 
GO  TO  100 

C  SET  CLASS*1  if  THERE  ARE  ‘PARTS  MISSING* 

70  IF  (N0P1M!!))  EO(Oi t  60  TO  TOO 
let  NAOCP  ■  NAOCP  ♦  I 
LET  CLAS! 11*1 

100  CALL  0UT!9.I .CLASd I iNREOX! d tOI 
RETURN 
END 


ri  o 


"•Bjk 


tNDOO  €VEST  CL^.TC 

C  CALI.  MAi.MTEMAi.CE  IMYCfi  WHEN  MALFUNCTIONS  1.  IS  DISCV 

C  DUKINS  PREFlIGHT  0«  DURING  GROUND  ALERT 

LET  L  »  MPN^lK-TC) 

LET  iN  T,  f^AR^tL) 

U'T  I  *  CLNOtL) 

LET  K  *  MAN<Ci.MTC> 
if  UJ  EQ  t  U  *  GO  TO  20 
iO  let  NOOSMU)  *  NOOSMdf  +  1 

,  incRiJiL})  tom*  let  nredxi i i-^nreoxu)-*-! 

20  :r  (MTNRiLn  NE  (0)*  GO  TO  IOC 
CALL  MTCEJL*NN) 

C^EOTRCV  CLMTC 

IOC  CALL  OUTait  UN*CL5SP(LJ  .X) 

RETURN 

END 


C 

ENOOG  EVENT  CLSE 

C  TIME  TO  CANCEL  SORTIE  IF  NOT  READY 

LET  1  »  TLNOICLSE) 

C  IF  PREFLiGHT  COMPLETED-ATTEMPT  TO  STOP  MAINT.» 

C  OTHERWISE  GO  TO  CANCEL 

10  IF  (PREFNd);  EQ(i)*  GO  TO  30 

C  IF  CRITICAL  MALFUNCTIONS  EXIST  CALL  CANCEL  ROUTINE 

40  let  ISECLMJ  •  1 
CALL  CANCL< I ) 

GO  TO  JOO 

30  CALL  STOMK  I  *w*#cn 

IF  NOTHING  CRITICALf  SCHEDULE  A  ’WAIT  FOR  SORTIE* 
AT  TIME  *  NOW 
IF  (cn  EQ  {  1 )  »GO  TO  AO 
CREATC  WTSOR 
let  TLNO(WTSOR)  »  I 
let  MFNIWTSOR)  «  1 
CAUSE  WTSOR  AT  TIME 
ICO  DESTROY  CLSE 

LET  CLSEEU)  -  0 
RETURN 
END 


X 

I 


C 

SUBROUTINE  CREPT (REFAR ) 

C  SUBROUTINE  TO  CAUSE  PART  REPAIR  EVENT 

let  T*TIME  ♦  TREPPIREPAR} 
let  M  *  MREPP(REPAR) 

CALL  PTYRRSREPAR} 

FILE  REPAR  IN  RIPIM) 


\J  KJ  KJ 
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LET  NRIP(M)  »NRIP(M)  +  1 
let  NMENAIM)  ■  NMENA(MJ  -  1 

IFREPAIR  COMPLETED  BEFORE  END  OF  SHIFT  PLUS  OVERLAP* 
CAUSE  END  OF  PART  REPAIR*  OTHERWISE  NOTE  CURRENT  TIME 
PLUS  REMAINING  REPAIR  TIME.IC.F.  DOPRE  AND  SHIFT) 

IF  IT)  GR  lENDSM  ♦  OVLAP).  GO  TO  20 
CAUSE  PTREP  CALLED  REPAR  AT  T 
LET  SHFLGI REPAR )*0 
IF  (T  -  ENDSH)  LE  (0)»  GO  TO  100 
let  OVTMH  ■  T  -  ENDSH 
CALL  OUT(39»M*OVTMH*0.0) 

GO  TO  100 

20  let  SHFlG(REPAR)-1 

let  reptm:repar)-t 

100  CALL  0UT(1.M*NMENA(M) »NRIP(M) *NQREP(M) ) 

RETURN 

END 


C 

SUBROUTINE  DELAYIX)  C 

C  SET  DELAY  AFTER  POSTFlIGHT 

LET  X  *  PODLA  C 

RETURN  C 

END 


C 

C 


C 

C 

C 


C 


C 


10 


20 


25 


SUBROUTINE  OOPRE(L»M.B) 

SUBROUTINE 
FIRST  STOP 
DO  TO  20*  FOR  EACH  K  OF 
REMOVE  X  FROM  RIPIM) 

LET  NRIP(M)  *  NRIP(M)  - 
LET  TREPP(K)*REPTM(X)  - 
FILE  X  IN  QREP(M) 

IF(SHFLG(X))  EQ(0).  CANCEL  PTREP 
LET  NQREP(M)  •  NOREP(M)  ♦  1 
CALL  OUT(12*M*NRIPiM) *NQREP(M)  *0) 
LET  NMENA(M)  ■  NMENA(M)  ♦  1 

IF  ENOUGH  MEN*  RETURN 
IF  (NMENA(M))  EQ  (NOMEN(B))»  GO  TO 
REPEAT  10 


TO  DO  THE  PRE-EMPTION 

ALL  NECESSARY  BENCH  REPAIR 

RIP(M)  *WITH  (SHFLG(X))  NE(2) 

1 

TIME 


CALLED  X 


100 


STOP  ALL  NECESSARY  FLIGHT  LINE  MAINTENANCE 
LET  I  ■  LWIP(M) 

IF(NMENA(M) )GE  (NOMEN(B))*  GO  TO  ICC 
!F(1)  EQ(0)*  CALL  ERRO) 

IF  (PCAROU))  LE  (PTYMIL))*  CALL  ERRI  2) 
let  LL  •  MLFTN( I ) 


C 

c 


c 

c 


c 


T 

T 
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LET  !  ■  PWlPd) 

IF  (OISCV(LL)I  6E(2)#  GO  TO  25 
IF  (STOVT(LL)»  6R  (0,)»  GO  TO  25 
IF(CANAD(LL) )  GR(0)t  GO  TO  25 
CALL  TERM(LL#M,2) 

GO  TO  25 
100  RETURN 
END 


C 

EXOG  EVENT  DUMPP 

CALL  CORE(KXX.  KXX(8)  ) 

RETURN 

END 


C 

SUBROUTINE  ENOAT(I) 

C  IF  NEXT  SORTIE  IS  A  GROUND  ALERT  OR  AN  AIR  ALERT* 

C  CURRENT  SORTIE  IS  FINISHED 

20  IF  (TYNXSd))  LS  (0)  »G0  TO  25 
let  SEN00( I )  *  SENONI I ) 

C  »F  NEXT  SORTIE  IS  NOT  READ  IN*  FILE  AIRCRAFT  IN 

C  standing  and  RETURN 

IF  (PFLAGI I ) )EQ( 1) *  GO  TO  28 
FILE  I  IN  ACST 
let  NACST  *  NACST  ♦  1 
let  CLAS(I)  ■  5 
GO  TO  100 

C  NOW  ON  GROUND  ALERT  t  GOING  ON  AIR  ALERT  — 

C  START  preflight  FOR  NEXT  SORTIE 

28  CALL  PREFTI  I  ) 

GO  TO  100 

C  NOW  ON  ground  ALERT.  GOING  ON  TRAINING  MISSION 

C  START  SERVICE  ACTION 

25  CALL  STEAM! 1.3) 

100  RETURN 
END 


EXOG  EVENT  ENDSM 
CALL  OUTI38. 0*0.0. 0) 
RETURN 
END 


c 


SUBROUTINE  ERR(N) 

CALL  ERRR(N) 

CALL  C0RE(KXX»KXX(IC0RE)  ) 
CALL  0UTO8*9999»0»0*0) 

X  END  FILE  10 
STOP 
RETURN 
END 


C 

X 

X 

X 

X 

X 


REPORT  ERRR  (N) 


ERROR 

number 


»* 


X 


N 


END 


NUMBER  PAGE 

PAGE 


END 


C 

SUBROUTINE  FCRDM(L»M) 

c  subroutine  to  create  card  and  file  it  in 

C  MALFUNCTIONS  WAITING  MEN  OF  M  AND  DUES  0^  L. 

CREATE  CARD 
STORE  L  IN  MLFTNKARO) 
let  SHOPN(CARD)  »  M 
CALL  PTYMR(L»Mj 
file  CARO  IN  UUES(L  ) 

FILE  CARO  IN  MALM(M) 

let  NMALM(M)  -NMALMIMI  4  1 

call  0UTn3»M#NMALM(M)  ,FLAG»C) 

RETURN 

END 


ERROR 


3 


X  X 
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SUBROUTINE  FCRDW(L*M) 

SUBROUTINE  TO  CREATE  CARD  AND  FILE  IT  IN  WORK  IN  PRC 

CREATE  CARD 
LET  MLFTN(CARD)  •  L 
LET  SH0PN(CAR0J  *  M 
let  NWIP(M)  *  NWIPIM)  ♦  1 
FILE  CARO  IN  WIPIM) 

CALL  OUT« 14»MtNWlP<M) .OtO) 

RETURN 

END 


REPORT  INTLZ 


X 

INITIALIZATION 

VARIA 

X 

X 

ZERO  SUBSCRIPTED 

VARIABLES 

X 

1  AC 

* 

22  PODLA 

•»«**«* 

X 

NAC 

PODLA 

X 

2  PRT 

« 

28  PREDY 

,«*««•* 

X 

NPRT 

PREDY 

X 

3  SHOP 

* 

31  SHPDY 

,««»•«« 

X 

NS  HOP 

SHPDY 

X 

17  NOWEP 

* 

33  DTCAN 

,»«**«• 

X 

NOWEP 

DTCAN 

X 

1.9  MAXMN 

« 

36  FSAT 

* 

X 

MAXMN 

FSAT 

X 

Zc  TMPOT 

*«*««« 

37  FACST 

« 

X 

TMPOT 

FACST 

X 

21  DELAG 

42  NACST 

* 

X 

OELAG 

NACST 

single  subscripted  variables 

ATTRIBUTES  OF  AIRCRAFT 

AC  15  CLAS  26  SACST  26  PACST  7 

*  *  #  # 

I  CLASH )  SACSTd)  PACSTd) 

FOR  EACH  AC  1 

ATTRIBUTES  OF  PART 

30  NPRTA  FOR  THOSE  PARTS  NOT  SHOWN  EQUALS  ONE 

FART  30  NPRTA 

«  « 

N  NPRTA(N) 

FOR  EACH  PRT  N*  WITH  (NPRTAiNd  GRID 


ATTRIBUTES  OF  DUMMY  ENTITY 
UPLOAD  DOWNLOAD  SERVICE 

»  *  « 


34  NTEAM 


XXXXXXXXXXXXXXXXXXXX  X  X  XXX  XXXXX  XX 
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X 

X 

X 


X 


X 

X 


X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


DOUBLE 


NTEAMI 1) 

NTEAM(2  I 

NTEAMi 

X 

79  TIMET 

, »*»*** 

«**#•*« 

,«**«*• 

X 

TIMETI 1) 

TIMETIZ  ) 

TIMET! 

X 

AIR  ALERT 

GND«ALERT 

TRAININ 

X 

65  MAXLT 

,«*«««* 

,»«*»«« 

,«««««* 

X 

MAXLTI 1 ) 

MAXLT(2) 

MAXLT! 3) 

X 

SUBSCRl 

(PTED  VARIABLES 

X 

ATTRIBUTES 

OF  SHOP 

X 

38  NMASD 

SHOP 

SHIFTl 

SHIFT2 

SHIFTS 

* 


» 


* 


« 


Bl 


M 

FOR  EACH 

SHOP 

NMASD!M«1 ) 

M 

NMASD!M»2) 

NMASD!M»0) 

DOUBLE  SUBSCR 

IPTEO 

ATTRIBUTES  OF 
76  SHPNO 

DUMMY  ENT 

ITY 

upload 

« 

#  # 

*  « 

« 

SHPNO(ltl)  SHPN0(lf2)  SHPN0(1»3)  SHPN0{1»4)  SHPN0(1.5)  NOMN(l.l)  N 

SXLLd.S 


DOWNLOAD 
SHPN0(2tl)  SHPNO{2t2) 


«  »  *  *  * 

SHPNO{2f3)  SHPN0(2,4)  SHPN0{2»5) 


* 

N0MN(2tl)  N 
SXLL{2»3 


SERVICE  *  » 

SHPN0(3»1)  SHPNO<3»2) 

INITIALIZATION 


* 

N0MN(3*1)  NO 
VARIABLES  - 


ZERO  SUBSCRIPTED  VARIABLES 

4  - 2 

5  —  3 
35  SFTNO 
40  FLAG 

43  NAOCP 

44  NAOCM 

45  NACMN 

50  WHERE 

51  ENDSH 
71  FSUN 


SINGLE  SUBSCRIPTED 


ATTRII 

3UTES  OF  AIRCRAFT 

ATTRIBUTES 

6 

ENDSE 

23 

NWIP 

9 

TCURS 

27 

FWIP 

10 

TMNXS 

27 

LWIP 

11 

tyfls 

32 

NREQ 

11 

TYNX3 

39 

OVTMH 

11 

pflag 

56 

FQREP 

14 

NOOSM 

56 

LQREP 

14 

NREDX 

57 

FRIP 

15 

PREFN 

57 

LRIP 

16 

NOPTM 

63 

fmalm 

18 

SENOO 

63 

lmalm 

18 

SENON 

64 

NMENA 

46 

LTP 

67 

NMALM 

52 

nomnm 

68 

NR  IP 

53 

NOMFM 

66 

IDYCL 

66 

ISECL 

74 

tmfls 

VAR 

SH 


3 

w 


3 

G 
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X 

X 

X 

X 

X 

X 

X 

X 


bles 


DOUBLE  SUBSCRIPTED  VARIABLES 

attributes  of  Air<CR  'T  and  of 

12  NPREM 

13  SELEN 
24  FMLFN 
49  NGAMN 
69  LMLFN 
73  NOPSM 

END 


RUN  NO.  * 
RUN 


SORTIE  NUMBER  NEW  0 


X 

13 

2 


47  KORE 

48  TACTM 
55  OVLAP 
70  LACST 
72  TMPRT 
8u  NACWW 
81  RUN 


* 

KORE 

« 

TACTM 

«««**«* 

OVLAP 

* 

LACST 

TMPRT 

« 

NACWW 

* 

RUN 


5 

2 

1 


5  WEPST 

# 

WEPSTd)  ^ 

IX 

X 

X 

X 

X 

X 

X 

X 

X 

1 

I 

i 


3  ) 

G 


AND  SHIFT 


number 

61  NMASE 
SMIFT2 


2* 

2 


X 

X 


SH I F  T  I 


SMI  FT  3 


1 
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•  « 

NMASECM«1)  NMA$E(Hf2) 


* 

NHA$E(Mf3) 


77  NOMN 

•  «  *  •  * 

OMN(ly2)  NOHN(l»3)  NOWNUtA)  NOHNd 

I  SKLLllfA)  SKLLdtS) 

•  *  *  «  « 

OMNI  2*2)  N0HN(2»3)  N0HN(2*4)  NOMN (2 
)  SICLl(2*4)  Sl^l.L(2*3) 

»  « 

MNi3«2}  SKLL(3»1) 

initially  set  to  zero 


iX 


78 

SXLL 

1 

ft 

ft  ft  ft 

1 

5) 

SKLLd*!)  SKLLd»2) 

ft 

ft  ft  ft 

1 

5> 

SKLL(2tl)  5KLL(2t2) 

ft 

5 

SKLL(3*2) 

3X 

1 


2 


lABLES 

1 

OP 

attributes  of  part 

29  FMALP 

29  LMALP 

30  NCANB 

30  NMALP 

ATTRIBUTE  OF  DUMMY  ENTITY 
62  MISSD 


R  OLD 


2 

I 


END 


C 


C 

c 


X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 


ly  u  u  u 
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ENOOG  EVENT  LTPRE 

latest  time  to  '  -FLIGHT 

let  JJ  «  0 

let  I  ■  TLN0(LTPRE} 

f £T  LTP( 1)  ■  0 

MC  ACTION  IF  A/C  NOT  IN  POSTFLT  MAINT  FROM  PREV¬ 
IOUS  SORTIE 

IF  (CLASdn  NE(8)#  60  TO  10 
let  JJ  •  1 
GO  TO  20 

10  IF  (CLAS<n)  LE  <3)*  60  TO  20 
LET  Cl  *  1 
GO  TO  100 

20  IF  (TYNXSU))  NE  iOJ*  GO  TO  TO 
LET  Cl  •  1 

GO  TO  100  HAiNTdF  THERE  ARE  NO  CRITICAL  MALFUNCTIONS 

30  CALL  STOMT(I»li  MALFUNCTIONS  ‘START  NEXT  SORTIE* 

IF(CnEQ(  1 )  »GO  TO  100 
CALL  STNXS(  I  ) 

IF(JJ)  NE( 1 ) •  GO  TO  IOC 
let  LTP( I )  *  99 
LET  JJ  «  0 

100  DESTROY  LTPRE 

CALL  OUT( 37*1 .CLAS( n .Cl *0) 

101  RETURN 
END 


C 

subroutine  MTCEd-.NN) 

maintenance  subrc^t;ne*  checxs  to  see  if  parts  and 
men  are  available  fur  all  The  requirements 
OF  VHE  malfunction  L*  if  SO  IT  ALLOCATES  THE 
PARTS  AND  MEN  TO  L  AND  SHIPS  THE  REPARABLE* 

IF  appropriate*  to  the  shop 

lft  NC  «  0 
let  NN  »  0 
1_E  T  N  •  PART  (  L  < 
let  1  -  TLNOvLJ 
L*"  ?  XX  ■  DI  SCV(L  » 
let  P!  -  l.u 
let  mi  .  I 
let  NPR  »  V 
let  IDElT  » 
call  PTyMRlL.MJ 

1*  analysis  Or  PART  availability 
test  ‘NO  PART  needed*  fN'O  OR  •C*LLt:  BY  CANAS' 
(SL?  I-'  ON»  OR  PART  AVAILAOlE. 


n  n  r> 
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C 

C 


C 


C 


C 

C 


IF  (N)  EQ  {0) ,  GO  TO  50 
i:  IF  INPRTA(NM  GR  (0)»  GO  TO  45 
IF  (CANAO(L)}  EQ(1)»  GO  TO  50 

PART  NOT  AVAILABLE*  SET  P*  0.0 

update  PART  STATISTICS.  CANA3ALIZE  IF  CRITICAL 

12  LET  PI  =  0.0 

IP  (CLSSP(L);  EQ  (U.GC  TO  50 
CALL  PTYPR  tL.N) 

FILE  L  IN  MALF(N) 

LET  CLSSP(L)  1 

LET  NMALP(N)  «  NHALP(N)  ♦  1 

LET  NOPTMI I )  «  NOPTMI I )  +  1 

IF  <CRIT<L) )  EQ  (0) f  GO  TO  50 

CREATE  CANAB 

STORE  CANA6  IN  CANARILI 

LET  MFNICANAB)  a  L 

CAUSE  CANAD  AT  MAXlFI T IME . TMNXSt I ) -2 .0*RE?TM{ L )  -  .25) 

45  IF  ICANAOID)  EQIO)*  GO  TO  50 
let  REPT  '.(L)  *  REPTMiL)  /  0.6 
LET  CANADIL)  «  0 

II.  ANALYSIS  OF  MANPOWER  AVAILABILITY 
50  DO  TO  9C,F0R  EACH  X  OF  REOSIL) 
let  SUB(X;  »  0 

IF  ISKiLLiX))  EQ  (0)»LET  Q  ^  A 
let  .i'SMCPNiX) 

IF(M?  EQ' 0) »  GO  lO  109 

IF  LABOR  A  ARABLE  DESTROY  CARD  (IN  MALM)  IF  ANY 
IF(NMENA(M))  LS  {NOM£N(X))*  GO  TO  73 
CALL  RCROM(L^M) 

GO  TO  90 

IF  labor  not  AVAILABLE  TRY  TO  SUBSTITUTE 
SKILLED  FOR  UNSKILLED 
73  IF  (SKILL!'  F.Q  (0).  GC  TO  78 

IF  (NMEN^-'.m  -  NOMEN(X)  vNMtNA(M“l  )  -.NOMEN(Q))  LS(0).  GC  TO  78 
LET  SU6(X)  =  NCMEN(a)  -  NMENA(M) 

FIND  FIRST. FOR  EACH  k  OF  REQS ! L ) » W I Th ( SHOPNI K ) ) EQ ( M-l ) • I F  NONE* 
CCALL  ERR(  4) 

LET  SUB(K)  =  -SUBIX) 

CALL  RCRDM(L*M) 

GO  ro  90 

IF  SKILL  SUBSTITUTION  IMPOSSIBLE.  TRY  PRE-EMPTION 
IF  MALFN  IS  critical 

78  IF  (CRIT(L!)  F.0  (C).  GO  TO  79 
CALL  PREMPIL.M.X) 

IF(SUB(X) )  LS  (98)  »  GO  TO  79 
CALL  RCRDM(L»M) 

GO  TO  90 

79  let  mi  »  0 

NO  LABOR  AVAILABLE— NO  HOW. 

CREATE  AND  FILF  WAITING  CARD(S) 

80  DO  TO  81. FOR  EACH  I  OF  QUES(L)*  WITH  (SHOPN(Z))  EQ  (M) 

GO  TO  90 

81  REPEAT  80 

CALL  FCRDMiL.M) 


C 


C 


C 


( 

c 


( 
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C 

C 

c 


c 


c 


c 

c 


c 


c 

c 


c 

c 


90  repeat  50 

nu  IF  HEN  AND  PARTS  WERE  FOUND  TO  BE 

available  for  all  requirements  of  l  then 
00  the  actual  allocation  of  men 

FOR  EACH  REQUIREMENT  OF  L 
IF  (Ml )  £Q  10) ,  GO  TO  135 
109  IF  (PI)  EQ  (0)»  GO  TO  100 
LET  NN  «  1 
LET  LK  *  CANARIL) 

IF  (LK)  EQ  (0)*  GO  TO  110 
CANCEL  CANA8  CALLED  LK 
DESTROY  CANAB  CALLEu  LK 
let  CANAR(L)  »  0 

no  DO  TO  115*F0R  EACH  B  OF  REQS(L) 

LET  M  ■  SHOPNIB) 

IF(M)  £0(0) .  GO  TO  116 
CALL  FCRDW{L»M) 

DO  PRE-EMPTION  IF  THIS  CALLED  FOR  (SUB*98) 

IF  (SUB(B))  LSI  98!  •  60  TO  112 

CALL  D0PRE(L.M,B) 

let  SUB(B)  *  0 

LET  IDELY  -  1 

let  NP  *  1 

REDUCE  NUMBER  OF  MEN  AVAILABLE  IN  SHOP  M 
112  LET  NMENAIM)  *  NMENA(M)  -  NOM£N(B)  ♦  SU3(3) 

CALL  OUT ( 3  #M t NMENA ( M ) » SUB ( B ) t NP ) 

LET  NP  »  0 

115  REPEAT  110 

calculate  ‘FINISH  TIME*  (INCLUDE  PREEMPT  DELAY* 
PREDY.  IF  ANY  PREEMPTIONS*  I0ELY«1 

116  ‘ ET  REPTI  *  REPTM(L) 

IF(IDELY)  EQ  (1).  LET  REPTI  -  REPTM(L)  +  PREDY 

CALL  RUSH  I L •REPTI) 

let  FINTM(L)  TIME  +  REPTI 

CREATE  AND  CAUSE  END  OF  MAINTENANCE  (MTN) 

CREATE  MTN 

let  MFN(MTN)  =  L 

iFkKK)  6R( I ) •  GO  TO  117 

let  NOMEM(I)  »  NOMEM (1)  ^  1 

117  IF(KK)  EQ(6)*  LET  NOMEM(I)  «  NOMEMIl)  +  1 
let  PCANB(MTN)  •  0 

STORE  MTN  IN  MTNR(L) 

CAUSE  MTN  AT  FINTM(L) 

NOTE  IF  THIS  IS  CANABALIZATION  (START  OF  A  'REMOVE 
ONLY*  ACTION*  AND  RETURN 
IF  (CANAD(L))  EQ(0).  GO  TO  US 

118  let  PCANB(MTN)  »  1 

let  NCAN8(N)  *  NCANB(N)  ♦  1 
LET  NC  *  1 

let  nomem ( I )  ■  NOMEM( I )  -  1 
GO  TO  1000 

IF  PART  NOT  REQUIRED*  RETURN 

119  IF  (N)  EO(C) *  60  TO  IOC 

PART  REQUIRED  REDUCE  PART  AVAILABILITY  BY  ONE 


V  > 
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LET  PARTaj  *  0 

120  let  NPRTA(N)  •  NPRTA(N)  -  1 
IFCKIC)  £0<2J»  GO  TO  1000 

C  IF  REPAIRABLE  THI,<  STATION  SHIP  TO  SHOP  (CAUSE  REPAR) 

IF  (NRTSILJ)  EQ  (1)»  60  TO  130 
LET  NPR  «  1 
CREATE  REPAR  CALLED  R 
let  PART(R)  ■  N 
LET  KREPP'RJ  -  MREPP(LJ 
LET  TREPP(R)  ■  TREPP(L) 
let  REPLT(R)  *  0.6  »  REPTM(L) 

CAUSE  REPAR  CALLED  R  AT  TIHE  REPTI  ^  SHPDY 
60  TO  100 

C  IF  NOT  REP.  THIS  STATION  CAUSE  PART  ARIVAL  FROM  DEPOT 

130  CREATE  PTARR 

let  pari (PTARR)  •  N 

let  REPLT(PTARR)  *  0.6*REPTM(L) 

CAUSE  PTARR  AT  TIME  ♦  OELAC 
GO  TO  100 

C  MEN  NOT  available  (MI»0)*IF  NOT  A  REPLACE  ACTION 

C  (DISCV  NOT  2)  iNCrSASE  » NOsMALFUNCT I  ON  AWAITING  MEN* 

135  IF(»;Kj  NE(2)»LET  N0MNM(!)=  NOMNMd)  +  1 

C  CHECK  IF  ENOUGH  MEN  AVAILABLE  TO  00  JOB  SOWETIML 

LET  IfJIC  *  0 

137  00  TO  140#  FOR  EACH  MM  OF  REOSiLI 
LET  N  *  SHORN (MM) 

LET  MEr:  *  NOMEN  (MM) 

let  max  «  XMAXOF(NMASO(Mf 1 ) *  NMAS0(M»2)*  NMASD(M>3)) 

IF  (MEN)  LE  (MAX)#  GO  TO  140 
IF  (SKILL(MM))  EQ  (0).  GO  TO  138 
C  NOT  ENOUGH  UNSKILLED  -  CHECK  IF  SUM  IS  EXECEEDED 

FIND  MXSUM  sp  •*¥  OF  (NMASOlMtMI)  ♦  NMASD' M-1  .Ml)  )  .  FOR  MI«(1)I3) 

IF  (MEN  +  NOMFN f ^ XEQS( MM) ) )  LE  (MXSUM),  GO  TO  140 
LFT  MAX  =  MXSUM  -  NOMEN ( PREGS ( MM ) ) 

C  NOT  ENOUGH  MEN  EVER 

138  LET  EXTRA  *  FlOATF ( NCMEN( MM )  -  MAX ) ♦REPTM ( L ) 

CALL  0UT(7#  M,  EXTRA,  0»0) 

LET  NOMEN? MM)  -  MAX 
IF  (UK)  EO  {  1 )  ,  GO  TO  140 
CREATE  CLMTC 
LET  MFN(CLMTC)  •  L 
let  MAN(CLMrC)  »  1 
CAUSE  CLMTC  AT  TIME 
LET  UK  »  1 

140  REPEAT  137 

IF  NOT  A  REPLACE  ACTION,  CLASSIFY  AIRCRAFT 
100  IF  (KK)  NEI2J.  CALL  CLASS(I) 

XIOOO  IF  (SENSE  LIGHT  1)  1001»10U1 
1001  CALL  0UT(4 . I #NOMEM( 1) ,NOMNM( I ) ,NOPTM( I ) ) 

CALL  0uT(4»N»NC»NPRTA(NJ ,NMALP(N)  ) 

CALL  0UT(4»NCAN8(N) ,MI ,KK,NRE0X( I ; ) 

RETURN 

END 


C 

C 


C 


c 

c 

c 


c 


c 


c 


c 

c 


f  1 
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ENOOG  EVENT  MTN 

end  of  maintenance 

LET  L  •  MFNIMTN) 

LET  I  «  TLNO(L) 

LET  K  -  OISCVCL) 

LET  K1  •  CR1T(L) 
let  OVTF  -  STOVTiL) 

REMOVE  MALFN  FROM  NIP 

6  DO  TO  7t  FOR  EACH  Y  OF  REQS  (L) 
let  M  ■  SHOPN(Y) 

IF(M)  EQ(0)f  GO  TO  15 
CALL  RCROWa*M) 

7  REPEAT  6 

C  IF  MALFN  WAS  COMPLETED  ON  OVERTIME# 

C  DON'T  RETURN  MEN  TO  SHOP 

8  IF  (OVTF)  GR  1C.)*  GO  TO  28 

C  RETURN  MEN  TO  SHOP 

10  no  TO  12#FOR  EACH  X  OF  REOS(L) 

LET  MM  =  SHOPNIX) 

LET  NMENA(MM)  «  NM£NA(MM)  ♦  NOMEN ( X )-SUB( X ) 

CALL  0UT(5»MM.NMENA(MM) .SUBIX ) *0) 

12  REPEAT  10 
GO  TO  15 

C  ACCUMULATE  OVERTIME 

28  DO  TO  29#FOR  EACH  X  OF  REQS(L) 

LET  M  *  SHOPN(X) 

LET  OVTMH  ■  (TIME-STOVT(L) »*(FL0ATF(N0MEN(X)-SUB(X) ) ) 

CALL  0UT(3V.M»0VTMH.0.0) 

29  repeat  28 

LET  STOVTIL)  «  0. 

C  IF  CANABALIZAT ION  OR  OVERTIME#  DO  NOT  REASIGN  MEN 

15  IF  (PCANBlMTNj)  EQ(l)*  GO  TO  27 
IF  (OVTF)  GR  (0.)#  GO  TO  30 

C  ATTEMPT  TO  USE  AVAILABLE  MEN 

16  DO  TO  26.  FOR  EACH  Y  OF  REOS(L) 

LET  M  »  SHOPNIY) 

IF(M)  E0(0).  60  TO  30 
CALL  USEMN(M) 

IFISKILLIY) )  EQ( 1 y  #  GO  TO  26 
IF(SHOPN(SREQS(Y) )  -  1)  EQ(M).  GO  TO  26 
CALL  USEMNlM-^l) 

26  REPEAT  16 

C  IF  REGULAR  MALFN. REMOVE  FROM  MLFN. DESTROY  MALFN  AND 

C  DECREASE  OUTSTANDING  MALFNS  OF  A/C 

3^  IF  (<)  EQ(6)  .  GO  TO  35 
IF  (K)  GR  ( 1) .  GO  TO  310 

35  IF(CRIT(l))  EQ(1).  LET  NREOX(l)  ■  NREOXd)  -1 

IF(NREDX(I))  LS(0).  CALL  £RR(6)  T 

CALL  R0M( I »SENOO( I ) »L) 

LET  N005M( I )  «  NOOSM( I  )  -  1 
LET  NOMEM ( I )  »  NOMEM( I  )  -  1 

IF  (NOOSMID)  LS(0).  CALL  EKR(  6)  T 

IF  (PREFNl I ) )  EO  ( 10) .  GO  TO  45 
IF  (NOOSMID)  EQ(0).  60  TO  40 


KJ  U 


C 


IF  still  outstanding  mals-classify  a/C  and  return 


41 

c 

45 


46 


40 


42 

C 


43 

C 

C 

52 


67 


C 

70 

C 

X  31>J 


C 

C 

330 

C 

X  34G 

C 

C 

330 


CALL  CLASS! I ) 

GO  TO  100 

STILL  IN  PREFLIGHT 
IFiNOOi  I  )  )  EQ(0)#  GO  TO  46 
CALL  CLASS!  I  ) 

GO  TO  100 

let  CLAS! I )  *  10 

GO  TO  ICO 

TAKE  APPROPRIATE  ACTION  DEPENDING  ON  'WHERE 
MALFN  DISC 
let  NACMN  »  NACMN  -  1 
IF  !K)  EQ!0)  .  60  TO  52 
GO  TO  !70#97»97.97»97t42) *K 
IF  !ENDSE!I))  GR  !TIM£).  60  TO  43 
6RCUND  ALERT  ALREADY  FINISHED 
CALL  ENDAT!  I  ) 

GO  TO  100 
LET  CLA3! I )  *  6 
GO  TO  100 

END  OF  PREFLIGHT  MALFN.  IF  NEW  SORTIE  READ  IN  !PFLAG!n«l) 
START  NEW  SORTIEt  OTHERWISE  CAUSE  WAIT  FOR  SORTIE 
IF  IPFLAG!!))  EQ  !!)•  CALL  ERR!21) 

CREATE  WTSOR 

LET  TLNO!WTSOR)  »  I 

IF  1 ISECL! I) )  EQ  !0) •  GO  TO  67 

CAUSE  WTSOR  AT  TIME 

GO  ""O  100 

CAUSE  WTSOR  at  MAX 1F ! T IME t TMNXS! l) J 
let  CLAS! n  *  9 
LET  KL  *  Cl.SEE!  I  ) 

IF  (KL)  EQ  (0)  ,  call  ERR! 33) 

CANCEL  CLSL  CALLED  KL 
DESTROY  CLSE  CALLED  KL 
LET  CLSEE!  I  )  =  0 
60  TO  100 

END  OF  POSTFLT  MA INT-ATTEMPT  TO  START  NEXT  SORTIE 

CALL  STNXS! I  ) 

GO  TO  100 

NOT  REGULAR  MALFUNCTION 

SENSE  LIGHT  1 

CALL  RDM! 1 .SENOO! ! ) »L ) 

GO  TO!97#lODt33C, 340*350) ♦K 

2*REPLACE*  3*UPL0AD,  4=D0WNL0AD*  5«SERVICE 
END  OF  UPLOAD.  START  PREFLIGHT 

CALL  PREFT ! I ) 

GO  TO  100 

END  OF  DOWNLOAD.  START  NEXT  SORTIE 

SENSE  LIGHT  1 
GO  TO  70 

END  OF  SERVICE  -IF  CURRENT  SORTIE  IS  AIR  ALERT  OR 
TRAINING.  START  A  PQSTFlIGHT 
IF  ! TCURS! I ) )  EO  (Cl.  GO  TO  352 
CALL  SPOFL ( I ) 
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GO  TO  100 

352  1'-  (TYNXS(I))  GE(0).  CALL  ERR(  7)  T 

C  GROUND  alert  TO  TRAINING-START  DOWNLOAD 

IFII)  GE(NOWEP).  GO  TO  340 
CALL  STEAM( 1 t2) 

GO  TC  100 

C  END  OF  A  'REMOVP  CANABALIZATIION'-START  A  REMOVE 

C  AND  REPLACE  AND  RETURN 

27  let  REPTM(L)  *  REPTM(L)/0.6 
let  N  *  PART(L) 

LET  NPRTA(N1  *  NPRTA(N)  -*•  1 
let  N0PTM( I )  -  NOPTM( I )  -  1 
REMOVE  L  FROM  MALP(Ni 
LET  CLSSP(LJ  -  0 
CALL  MTCE(L»  NN) 

100  DESTkOY  MTN 

CALL  0UT(6* I»N0MNM( I »  #NOMEM( I ) #NOPTM( I ) ) 

CALL  0UT(6*CLAS( I i »NREDX( I ) »K#KT) 

RETURN 

97  CALL  ERR(52) 

END 


C 

SUBROUTINE  OUT ( At6tC*0tE ) 
DIMENSION  X(lU02)t  J(l) 

X  EQUIVALENCE(X*J) 

let  N«  WHERE 
LET  X‘N+1)  -  A 
LET  X(N+2)  ■  B 
LET  X(N+3.  ■  C 
let  X(N+4)  »  D 
LET  X(N-»>5)  »  E 
LET  X(N+6I  -  TIME 
LET  WHERE  «  N  6 
IF  ( J(N+1 ) )  EQ  <  38) »  GO  TO  10 
IF  (WHERE)  NE  (1002)»  GO  TO  ’0 
LET  WHERE  »  0 

X  WRITE  TAPE  lu . ( X ( I ) . I »1 . 1002 ) 

GO  TO  20 

10  let  J(997)  -  38 

X  WRITE  TAPE  lOtlXdl.  I  •  111002) 

IF  (J(N+2))  EQ  (9999>»  GO  TO  15 

X  END  file  10 

REWIMD  TAPE  Iw 
15  CALL  EXIT 

20  return 

END 
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C 

FUNCTION  PCARDICARD) 

SETS  PRIORITY  OF  CARD  EQUAL  TO  PRIORITY  OF 
CORRESPONDING  MALFN* 
let  PCARD  «  PTYM(MLFTN(CAROn 
RETURN 
END 


C 

ENOOC  EVENT  PDLAY 

C  end  of  POSTFLIGHT  DELAY 

LET  I  •  TLNO(POLAY) 

IF(LTP(n»  N£(99»»  GO  TO  10 
LET  LTP(I)  •  0 
GO  TO  100 

10  let  NOMEM(I)  *0 
let  N0MNM( I )  *0 
let  N0PTM( I )  »0 

C  FIND  LONGEST  MALFUNCTION 

LET  JJ  *  SENOO( I ) 

FIND  BIGTM(I)  •  MAX  OF  REPTM(L)#  FOR  EACH  L  OF  MLFNIJJ.D* 
CWHERE  BIG! I)  IS  THE  LONGEST  MALFN 
let  BIGTMd)  *  BIGTM(I)  ♦  TIME 

C  ATTEMPT  TO  START  MAINT  ON  ALL  POSTFLIGHT  MALFNS 

let  FGIJ)  ■  Ot  FOR  EACH  J  OF  MLFN(JJ#I) 

20  FIND  BIGX  •  MAX  OF  REPTMIKI#  FOR  EACH  K  OF  MLFN(JJtl)*  WITH 
C(F6<KI)  EQ  (0),  WHERE  L*  IF  NONE*  GO  TO  100 
LET  FOIL)  *  1 

IF(OISCV(L) )EQ(0) .CALL  ERR(  8) 
let  N  ■  PART(L) 

CALL  MTCE(L.NN) 

CALL  OUT(15.N.CLSSP(L) .O.OJ 
30  GO  TO  20 
100  DESTROY  PDLAY 
RETURN 
END 


1 

1 


1 

1 

i. 


1 

1 

1 


C 

ENOOG  EVENT  POSFl 

C  END  OF  POSTFLIGHT-OISCOVER  MALFUNCTIONS 

LET  I  •  TLNO(POSFL) 
let  J  ■  SENOO( I ) 
let  N00SM( I }  «  NPQ?M( J,  I  ) 

IF  {NREOX(II)  NE(0).  CALL  ERR(20j  I 

20  DO  TO  30*  FOR  EACH  l  OF  MLFN{J*1> 

IF(CRJT(H)  EQU)*  let  NRC0X(I'  »  NREDX(I)  ♦  1 
30  REPEAT  20 
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C  START  POSTFlT  DELAY  PRIOR  VO  MAIN!. IF  ANY  MAlFNS 

IF  (NOOSM(I))  E0(0)»  00  TO  355 
CALL  DELAY «*X) 

CREATE  PDLAY 
let  TLNO(PDLAY)  ■  I 
CAUSE  PDLAY  AT  TIME  ♦  X 
LET  CLAS(I)  •  8 
GO  TO  100 

C  NO  MAl.S-OOWNLOAD  IF  NECESS/ RY »OTHERW I SE  ATTEMPT  TO 

C  START  NEXT  SORTIE 

355  IFd)  6E(N0WEP},  GO  TO  7C 

!F  (TCURS<I))EQ  (-1).  GO  TO  70 
IF  (TYNXSdDGE  (0)t  GO  TO  70 
CALL  STEAMd*2) 

GO  TO  100 

X  70  SENSE  LIGHT  1 
CALL  STNXSd  ) 

100  DESTROY  POSFL 

CALL  OUT(  16*1  »NOOSMd»  *NREOX(:  n.CLAS(  1 )  ) 

RETURN 

END 


C 

ENDOG  EVENT  PREFL 

c  end  of  preflight 

LET  IX*  TcNO(PREFL) 

LFT  PREFNdX)  *  1 
DESTROY  PREFL 

C  ATTEMPT  TO  START  MAINT  ON  ALL  PREFLIGHT  MALFUNCTIONS 

50  DO  TO  55.FOU  EACH  L  OF  MLFN ( SENOOd X ) ♦ I X ) » W I Th( D I SCV JL )) EQ ( 0 ) t 
C  AND  {TD1SC(  L)  )f.Q{0  ) 
let  NOOSMdX)  *  NOOSMtlXI  +  1 

IF(CRIT(L))  EG'U*  lei  NREDXdX)  *  NREDXdX)  ♦  i 
LET  N  »  PARKLi 
CALL  MTCE(L*NN) 

CALL  OUT(  17-.NtCLSSP(L  )  i0*0) 

55  REPEAT  50 

rF(NOOSM( IX) )GR(0) r  GO  TO  100 

C  IF  NO  OUTSTANDING  MALFNS. CAUSE  WTSOR  AND  RETURN 

CREATE  WTSOR 
LET  TLNO(WTSOR)  «  IX 
CAUSE  WTSOR  AT  MAX  1 F ( T IME * TMNXS( I X ) I 
let  XL  *  CLSEEI IX) 

IF  (KL)  EG  <0)  ,  CALL  ERRdA) 

CANCEL  CLSE  CALLED  XL 
DESTROY  CLSE  CALLED  XL 
LE  CLSEE( IX)  -  0 
LE.  CLAS( IX)  -  9 

100  CALL  OUT(  18»IX.N00SM(  IX)  .CLAS(  IX)  »Nr<EDXdX)  ) 

RETURN 

END 
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C 
C 

SUBROUTINE  PREFT3 I ) 

C  SUBROUTINE  TO  START  A  PREFLIGHT 

LET  pflagi  n*o  1 

C  IF  SORTIE  HAS  BEEN  CANCELLED#  FILE  A/C  IN  STANDING 

C  AND  RETURN 

IF( ISECLI I ) )  EQ(0) »  GO  TO  30 

LET  ISECL(I)=0 
file  I  IN  ACST 
LET  NACST  »  NACST  +  I 
LET  CLASI I )=5 


GO  TO  100  1 

C  IF  NOT  TOO  LATE  TO  START  SORTIE. CAUSE  END  OF  PREFLITE 

C  AND  CANCEL  LTPRE  EVENT 

30  LET  X  »  TIME  -  TMNX3(I)  -  MAXL T ( T YNXS I  1)  +2 )  ♦  TMPRT  C 

IF  (X)  GR  (0  )•  GO  TO  80 

CREATE  PREFL  1 

LET  TLNO(PREFL)  =  I  1 

CAUSE  PREFL  AT  T i ME  +  TMPRT  1 

LET  PREFN(  I  )  =  10 

LET  CLAS( I )  =  10  1 


IF  (lTP( I ) )  EO(C) ,  GO  TO  72 
cancel  LTPRE  called  LTPd) 

DESTROY  LTPRE  CALLED  LTFII) 

LET  LTPd  )  »  .. 

C  CAUSE  'CALL  MAINT'  FOR  ALL  MALFNS  DISCOVERED  DURING 

C  PREFLIGHT 

72  DO  TO  77tF0P  EACH  L  OF  MlFN ( SENOC ( 1) *  I ) . W I Th  JDISCV(L))  EQ  (0)#AND 


C(TDISC(L))  OR  iO) 

CREATE  ClMTC  C 

LET  MFN(CLMTC)  =  L 

CAUSE  CLMTC  AT  TIME  d  FLOA  T  F  (  T^)  1  SC  (  L  )  )  /  3 . 0  )  *TMPRT 
77  REPEAT  72 

GO  TO  100  1 

C  TOO  LATE  -  file  AIRCRAFT  IN  STANDING  AND  CANCL  SORTIE 

80  file  i  IN  ACST  1 

let  NACST  •  NACST  1 
let  KL  •  CLSEE {  1  ) 

IF  (XL)  EQ  (0;,  call  ERK(3^)  < 

CANCEL  CLSE  called  XL 

destroy  CLSE  called  XL  ( 

LET  CLSEEi 1  )  >  0 

cr^  CLASI I )  •  5  1  ( 

CALL  CANCL ( I )  1 

luO  call  OuT( 24# I  »CLAS(  I  ) .NACST  .0 )  ( 

RETURN  1 

END  I 
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SUBROUTINE  PREMP(L#M#X) 

SUBROUTINE  TO  SEE  IF  PRE-EMPTION  IS  POSSIBLE 
IF  STOPPING  BENCH  REPAIRS  IS  ENOUGH.  NOTE  PRE-EMPT 
FROM  BENCH  ONLY  0«IC*  ( SUB*98)  AND  RETURN 
LET  K  •  NMENACM) 

LET  K  •  K  ♦  1»  FOR  EACH  Y  OF  RIP(M).  WITH( SHFLGI Y ) )  NE<2» 

IF  (K)  LS  (NOMENiXn#  GO  TO  10 
let  SUB(X)  ■  98 
60  TO  100 

IF  NO  flight  line  ^'ALFNS  IN  PROCESS.  NOTE  PRE-EMPT 
NOT  O.K.  AND  RETURN 

10  IF  INWIP(M))  GR  (0).  CO  TO  20 

11  LET  SUB(X)  -  0 
GO  TO  100 

TRY  PRE-EMPTION  FROM  FLIGHT  LINE  MALFUNCTIONS 
UNLESS  MALFUNCTION  IS  ON  OVERTIME  OR  IS  A  CANABAL I 2AT ION 
20  let  I  •  LWIP(M) 

22  IF  (PCAROdlJ  LE  (PTYM(L)».  GO  TO  11 
let  LL  «  MLFTN(  I ) 

IF  <OISCV(LL))  GE(2)*  GO  TO  30 
IF  (STOVT(LL))  GR  (0*).  GO  TO  30 
IF  (canad<ll)j  gr«0}»  go  to  30 

FIND  FIRST  .  FOR  EACH  Y  OF  REQSi LL ) .WI TH  (SHOPNIT))  EQ(M)*  IF 
CNONE#  call  ERRdfc) 

LET  K  *  NOMEN(Y)  -  SUBIY)  ♦  X 
IF  (NOMEN(XI)  LE  (X).GO  TO  40 
30  let  J  »  PWlPd ) 

IF  (J)  EO  (0).  GO  TO  11 
LET  I  «  J 
GO  TO  22 

C  NOTE  PRE-EMPT  FROM  BENCH  ANO  FLIGHT  LINE  O.X.(SUb*99> 

40  let  5UB(X)  •  99 
lOJ  RETURN 
END 


1 

1 


1 

1 


C 

ENDOG  EVENT  PTARR 

C  END  OF  PART  ARRIVAL  FROM  DEPOT 

let  N-PART(PTARR} 

C  INCREASE  BASE  STOCK  BY  ONE 

let  NPRTA(N) "NFfiTAl N)>1 

C  ATTEMPT  TO  USE  PART  ON  ANY  i'-.,riNG  MALFUNCTIONS 

2U  call  USEPT (N. PTARR) 
lOo  DESTROY  PTARR 
RETURN 
END 
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ENDOe  EVENT  PTREP 

END  OF  BENCH  REPAJR 

REMOVE  REPARABLE  FROM  IN  PROCESS  AND  INCREASE  ‘NMENA’ 
LET  M  *  MREPPt PTREP) 

REMOVE  PTREP  FROM  RIP(M) 
let  N  *  ->ART(PTREP) 

IF(SHFLG(PTREP) )  EQ(0).  LET  NMENA(M)*NME.MCM)  +  1 
LET  NRIP(M)  *  NRIP(M)  -1 
LET  NPRTA(N)  *  NPRTA(N)  ♦  1 
10  CALL  USEPTIN. PTREP) 

C  ATTEMPT  TO  USE  NEWLY  FREED  MAN  ON  FLIGHT  LINE 

CALL  USEMN(M) 

100  DESTROY  REPAR  CALLED  PTREP 

CALL  0UT(19.M.NMENA(M) »NRIP(M) #N) 

RETURN 

END 


C 

SUBROUTINE  PTYMR(L*M) 

C  SETS  PRIORITY  OF  MALFUNCTION  IN  MALM 

IF  (DISCV(L))  NE  (6)t  GO  TO  10 
let  PTYM(L)  •  0 
60  TO  100 

10  let  PTYMCL)  -TMNXSiTLNOlL) ) 

100  RETURN 
END 


C 

SUBROUTINE  PTYPR(LfN) 

C  SETS  ORIORIT'I  OF  MALFUNCTION  IH  NALP 

IF  (DlSCVai)  NE  (6)*  GO  TO  10 
let  PTvp(L)  «  0 
GO  TO  100 

iw  let  PTYP(L)  •  TMNXStTLNOI L)  ) 

100  RETURN 
END 


C 

subroutine  PTYRk(REPAR) 

C  SETS  PRIORITY  OF  REPmRABLE  IN  RIP 

let  PTYR(REPAR)  -  TIME 
RETURN 

END 
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SUBROUTINE  RCRDM(L#M) 

C  SUBROUTINE  TO  REMOVE  AND  DESTROY  CARO  FROM  MALM  AND 

C  QUES.  IF  AMY 

FIND  FIRST*  FOR  EACH  Y  Ov*^  QUES(L)*  With  (SHOPNiYH  EQ  <M»* 

XIF  NONE.  RETURN 
REMOTE  Y  FROM  OUESILJ 
REMOVE  Y  FROM  MALMtM) 

LET  I  •  TLNOiL) 

DESTROY  CARD  CALLED  Y 

LET  NMALM(M)  •  NMALM(M)-  1 

CALL  OUT(2»M*NMALM(M)*I*NOMNHn)i 

RETURN 

END 


C 

SUBROUTINE  RCRDW(L*M) 

C  SUBROUTINE  TO  REMOVE  AND  DESTROY  CARD  IN  WIP 

C  (ASSUMES  CARO  IS  IN  WIPJ 

FIND  FIRST.  FOR  EACH  CARD  OF  WIP(M)*  WITH  ( MLFTN( CARD ) )  EQ(LI.  IF 
CNONE.  CALL  ERRU7J 
REMOVE  CARD  FROM  WIP(MJ 
DESTROY  CARO 
let  NWIP(M)*NW1P(M)-1 
CALL  OUT(20»M,NWIP(M) .0.0) 

RETURN 

END 


C 

SUBROUTINE  ROM(I.J.L) 

SUBROUTINE  TO  REMOVE  AND  DESTROY  THE  MALFUNCTION  L 
AND  ITS  MREQS 

I.AiRCRAFT.  J«SENOO(n  OR  SENONdJ 
LET  L(C  ■  CANAR(L) 

IF  (LX)  EQ  (0) ,  GO  TO  5 
CANCEL  CANAB  CALLED  LK 
OESTROV  CANAB  CALLED  LK 
S  IF  QU£S(L)  IS  NOT  EMPTY.  RETURN 
IF  (CLSSP(L)  )  NE  (0) »  RETURN 
8  IF  REOS(L)  IS  EMPTY.  GO  TO  10 
REMOVE  FIRST  MREQ  FROM  REQ3(L) 

DESTROY  MREQ 
GO  TO  9 

X  10  IF  (SENSE  light  1)  30.20 
20  REMOVE  L  from  MLFN(J»I) 

30  DESTROY  MAI.FN  CALLED  L 
RETURN 
END 


ML 
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ENDOG  EVENT  REPAR 

END  OF  SHIPMENT  TO  SHOP 
let  M  *  MREPPJREPAR) 

MEN  available*  START  AND  CAUSE  END  OF  BENCH  REPAIR 
IF  (NMENAIMH  EQ  (0)*  GO  TO  40 
IF  QREPIM)  IS  NOT  EMPTY*  CALL  ERR(  9) 

30  CALL  CREPTlREPAR) 

GO  TO  100 

NO  MEN  AVAILABLE  PILE  REPARABLE  IN  QUE 
40  CALL  PTYRR(REPAR) 

FILE  REPAR  IN  QREP(M) 

LET  NQREP(M)  *  NQREP(M)  +  1 
100  CALL  0UT{21*M*NQREP(M) ,NM£NA(M) *0) 

RETURN 

END 


FUNCTION  RMAXVIJ) 

LET  I  *  TLNO(J) 

FIND  RMAXV  =  MAX  OF  REPTMir.)*  FOR  EACH  K  OF  MLFNI SENOOI  1)  *  1)  * 
CWITH  IDISCV(X))  EQ  (DISCV(J)).  IF  NONE*  LET  RMAXV»  REPTM(J) 
let  RMAXV  »  RMAXV  -  REPTMIJl  +  ENOSEd) 

RETURN 

END 


subroutine  RuSM{l»R’ 

LET  T  «  0 

let  xo  *  oiscvdi 

IF  (XJ)  GR  U I »  GO  TO  100 
!F  {XJ}  F.w  Ul*  let  T  •  TMPRT 

IK  (TIME  ♦  R  T>  LS  (TMNXS(TLNO(Ln  d  GO  TO  lOC 

LET  R  »  RShP*k 

CALL  OUTt i0*XJt«.0*C* 

100  RETURN 
END 


C 


C 


c 


K 


C 


C 

C 

li 


c 


C 

C 
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ENDOG  EVENT  SHIFT 

END  OF  SHIFT.  UPDATE  SHIFT  NUMBER 

let  flag  *  1 

CALL  OUT(31»SFTNO.O*0»0» 

IF  (SFTNO)  EQ  (3).  LET  SFTNO  *0 
let  SFTNO  *  SFTNO  ♦  1 
LET  IW<,E  «  0 

IF(XMOnr(DPART(TIME) .7) )  £0  < FSAT ) ,  LET  IW<E  =  1 
IF(XM0DF{0PART(TIME) f7) )  EQ  (FSUNI.  LET  IWXE  *  1 
IF(SFTNO)  EQ(3)t  GO  TO  5 
LET  ENDSH  «  TIME  1./3. 

GO  TO  102 

5  LET  ENDSH  «  FLOATF ( DPART ( T I  ME ) )  >  1.0 

DETERMINE  IF  WEEKEND  OR  WEEKDAY 

102  IF  (XMODFIDPARTCTIMEl *7) J  EQ  (FSAT)#  GO  TO  103 
IF  (XMODF(OPART(TIME) .7) )  NE  (FSUN)*  GO  TO  3 

MAN  ALL  SHOPS  WITH  WEEKEND  MANNING 

103  DO  TO  1030#  FOR  EACH  SHOP  M 
LET  NMENAIM)  »NMAS£ (M# SFTNO ) 

1030  LOOP 

GO  TO  1031 

MAN  SHOPS  WITH  WEEKDAY  MANNING 

8  DO  TO  9*F0R  EACH  SHOP  M 

LET  NMENAtM)  *NMAS0 ( M # SFTNO ) 

9  LOOP 

STOP  ALL  WORK  ON  BENCH  REPAIR  UNLESS  ITEM  FLAGGED  TO 
CONTINUE  PAST  END  OF  SHIP T ( SHFLG*0 ) 

1031  DO  TO  107#  FOR  EACH  SHOP  M 

IF  RIP(M)  IS  EMPTY#  GO  TO  10? 

LET  Ll  *  FRIP(M} 

104  LET  L2  *  SRIP(Ln 

IF  (SHFLG(H))  EQIO)#  GO  TO  105 
REMOVE  Ll  from  RIP(M) 

LET  NRIP(M{  »  NRIP(M)  -  1 
FILE  Ll  IN  QREP(M) 

LET  NQREP(Mi  »  NQREP(M)  I 
LET  TREPPILU  ■  REPTM(Ll)  -  TIME 

105  let  SMFLG(Ll)  •  2 

IF  (L2)  EQ(0).  GO  TO  107 
LET  Ll  •  L2 
GO  TO  104 
107  LOOP 

LOOK  AT  EACH  MALFN  IN  PROCESS 

10  DO  TO  5C#FOR  EACH  SHOP  M 
STORE  FWIP(M)  IN  J1 

11  IF  (Jl)  EQ  10).  GO  TO  50 
STORE  SWlPUn  IN  J2 

let  L  «  MLFTNiJl) 

IF  UPLOAD. DOWNLOAD. SERVICE. OR  GROUND  ALERT,  GO  TO 
CONTINUE  CN  OVERTIME 
I?»-ISCV(L))  GR  (2)»  GO  TO  30 

OTHERWISE  C-^ECA  PREFLT  OR  POSTFlT  MALFUNCTION 
IF  WORK  DOtS  NOT  EXTEND  TOO  FAR  INTO  NEXT  SHIFT. 
CONTINUE  ON  OVERTIME 

IF  (FiNTM(L)  -  TIME)  LS  (OVLAP).  GO  TO  30 
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OTHERWISE.IF  0TFLG*1»  ATTEMPT  TO  RESTART  MALFN  WITH 
NEW  MEN»IF  NOT  CR I T I  CAL < 0TFL6*0 )  TERMINATE  MAINT. 

if(otflg(L))  eq  (0)*go  to  20 

IF  ENOUGH  NEW  KEN  AVAILABLE*  ASSIGN  THEM*  OTHERWISE 
CONTINUE  ON  OVERTIME 
17.  DO  TO  14. FOR  EACH  X  OF  REOSILJ 

IF  (NMENAr  SHOPN(X)  )  »  LS  (NOMEN(Xn*GO  TO  30 
14  REPEAT  12 

17  DO  TO  18. FOR  EACH  Y  OF  REQSIL) 

LET  M  *  SHOPN(Y) 

LET  NMENAIMj  »  NMENA(M)  -  NOMENtYJ 
CALL  OUT( 36.M,NMENA<M) .0.0) 

LET  SUBIY)  *0 

18  REPEAT  17 
GO  TO  40 

terminate  MAINTENANCE 
20  CALL  TERM(L.0.3) 

60  ‘fO  40 

CONTINUE  ON  OVERTIME 
30  T'  <ST0VT(L)5  GR  50).  GO  TO  40 
LET  STOVT(L)  *  TIME 
40  let  J1  =  J2 
60  TO  11 
50  LOOP 

ATTEMPT  TO  ASSIGN  REMAINING  NEW  MEN  TO  WAITING  .•,AL‘"iM 
DO  TO  60.  FOR  EACH  SHOP  M 
CALL  USEMN(M) 

60  LOOP 

CAUSE  NEXT  ENG  OF  SHlrT 
CAUSE  SHIFT  AT  ENDSH 
LET  flag  »  0 
RETURN 
END 


ENDOG  EVENT  SORTE 

END  jP  SORT  I  E 
LET  I  *  TLNOCSOR'E) 

IF  CURRENT  sortie  lb  A  TLAlNiNu  SORTIE  AN  AIR 
AlERT{-1  or  *i). start  a  SiFvlLi  RETURN 

IF  5TruRS(I))  eq  50) *00  TC  2C 

call  steams  I  , 3 
GO  TO  100 

^ow  ON  ground  alert -- 

2Q  If  5N00SM(l))  NE  tJ).  60  TO  ICO 
C  NO  outstanding..  MALFNS  •*  call  LNJ  AL  rt 

CALL  ENDAT  5  I  ) 

IOC  DESTROY  SORT? 

call  'JUT(  23  .  i  .NACST  .CLAS  (  H  .  TCURS  I  i  *  ♦,>  > 

RETURN 

END 
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EXOG  EVENT  SOh'TI 
SAVE 

read  tail  no.  and  type  of  next  SORTI 

READ  1  iNTYNX 
FORMAT* I4tI2 ) 

IF  (TNS)  EQ  (1).  GO  TO  2 

N0?^-TAIL  NUMBER  SCHEDULING 
LET  NTl  «  1 

IF  (1)  GE  CNOWfP)#  LET  NTl  *  2 

LET  iX  ■  0 

LET  IRWS  •  0 

IF  (NTl)  EQ(2)»  GO  TO  81 

IF  (NTYNX)  LS(0).  GO  TO  81 

LET  IRWS  •  1 

81  DO  TO  83»  FOR  EACH  II  OF  ACST 
LET  NT2  •  1 

IF  { I  I )  GE  (NOWEP) I  LET  NT2  •  2 
IF  (NTl )  NE  (NT2) »  GO  TO  83 
IF  (WEPST(II))  EO(IRWS).  GO  TO  85 

83  REPEAT  81 

NO  A/C  available  WITH  PROPER  WEAPON  STATUS  -TRY  OTHERS 
IF  (NTYNX)  LS  (C).  GO  TO  84 
IF  (  IX)  EQd)  *  GO  TO  84 
LET  IX  .  1 

IF  <IRWS)  EQ(1).  LET  IRWS  »  -1 
LEV  IRWS  ■  IRWS  ♦  1 
GO  TO  81 

NO  A/C  IN  STANDING  -  ASSIGN  SORT*L  TO  A/C  MOST  NEAR  READY 

84  let  SLJ  ■  999. 

LET  I  ■  99 
let  IRWS  »  w 
LET  IX  .  C 

IF (NTl)  EG(2)  .  GO  TC  91 
If (NTYNX)  LS(-)  .  GO  TO  91 
let  IRwS  »  1 

91  DO  TO  99.  FOR  EACH  AC  II 
LET  NT2  »  1 

If  (II)  GE  (NOwtP).  LEI  NT  2  --  2 
IE  (NT  1 t  NE  (NT2  )  ,  GO  TO  98 

GO  TO  (  9  .  9  3  .  ''J  3 .98 . 98  »  98  .  Jh  »  98 , 98 ,9S»9P  .98 ,9  T  »9S)  »CLAS(  11  ) 

93  If  MLEN(1»II)  IG  NOT  EMPTY,  If  Ml  N(2.  U)  IE  NOT  EMPTY.  GO  TO  98 

If  (CLAG(Il)i  >9  13).  GO  TO  85 

I  f  (  T  C  UR  b  i  !  I  I  )  f  0  (  0  !  .  GO  T  O  9  8 

IF (DI SCV( f N( bcNOOt n ) . il ) ' 1  NE ( i ) .  CO  TO  98 
lF{WEPST(n)!  NMIR^S).  GO  TO  90 

FIND  SlOJ  5  OF  RfPTM(L».  FOk  (ACH  L  UP  M!  r  N  (  S  E  NOC  (  I  1)  »  I  I  )  » 

C!F  NONE.  C'Ai-l  f'9Rife9) 

IF  (  SlC;j5  ;  :,L  J!  .  GO  TO  9  8 

let  Si^  *  bLv;j 
i.  E  T  !  .  n 
98  LOOP 

IF  I  I  )  If  !  NAC  )  ,  OU  TC  7 
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C 

C 

C 

C 


c 


c 


c 

c 


c 


let  IX  =  1 

IFJIRWSJ  EQ(1)»  LET  IRWS  *  -1 
LET  iRWS  »  IKWS  1 
GO  TO  91 

PROPER  A/C  IS  available 
85  LEV  I  =  II 
GO  ro  7 

CANCEL  SORTIE  i:  CLASS  OF  I-TH  TAIL  NO.  »  A»t.9  OR  10 

2  GO  TO  17,5.5.3.7,3.7.7.3»3#7.7*7.7> .CLASH ) 

READ  OVER  DATA  NOT  USED.  PROCEDURE  ASSUMES  NUMBER  OF 
MREQS  LE  14, therefore  EXACTLY  2  CAROS  PER  MALFUNCTION 

3  READ  N1,N2.N3 
FORMAT  (S29,3I3) 

LET  NM  »  Nl^‘N2-»-N3 
IF(NM)  EQ( 0) »  GO  TO  8 

DO  TO  6. FOR  I  I  =  ( 1) <2*NM) 

READ  II 
format  (ID 
6  LOOP 

8  CALL  Our( 25. I .NTYNX  .0.0) 

GO  TO  IDO 

5  FIND  FIRST, FOR  EACH  L  OF  MLFN  (  SENOG  H  )  ,  I)  » i*  I  TH  (OISCV(L))  £0(0), 
CIF  NONE. GO  TO  7 
GO  TO  3 

UPDATE  SORTIE  NO. »N£W , ( SENON ) *  I  OR  2 
?  let  NSN  »  SENONI I ) 

IF  (NSN)  £Q  ( 2 ) ,  LET  NSN  »  0 

let  NSN  *  NSN  ♦  1 

IF  MLFN(NSN.I)  IS  EMPTY,  GO  TQ  9 

IF  MLFN(5£N0N( D ♦ ; )  IS  NOT  EMPTY,  GO  TO  3 

GO  TO  II 

9  LE'"  S£^iON(  I  )  =  NSN 

11  let  J  =  SENtNil) 

READ  SORT  I  INFORMATION 

READ  seteN<J.i).  iMN-xsiii.  tmelsh;).  (  m  ,nprem(  J,  I )  .npcsm!  0 . : 

C )  rNGAMN( J,  I  1 
forma T (H3,2»2h4»2,2»^I  i) 

If  (I)  Gt  (NO#,^P)»  IF  (NTYNM  '  J  !-!?,  LET  SELLN'J.I)  »  SELENI^-, 
CD*.  64  3 

let  : YNXS( I )  NTYNX 

let  NM  »  NPKr,M(  J  ,  D +NPCSM  (  0  ,  D  “►NGAMM  J  ,  D 

NOTE  IF  A/C  NOT  REAOY  f  CL  YOKTILIClAS  Nl  Y  )  .OTHER-t  I  SL 

let  Old  sortie  N0.»N;;*  sortie  no. 

IF  (Clas(D)  eg  (S)»  go  to  10 
let  pflao(  i !  •  I 

LET  i StCL ( D  -  D 
GO  TO  12 

10  let  SENOOiD  *  J 

SCHEDULE  cancel  SORTIE  (CLSf)  AT  LATEST  OK  S-JRTI  TIME 

12  CREATE  CLSf 

let  TlNOJClSL)  *  ! 

STORE  else  in  CLScL (  I  ) 

CAUSE  CLSf  AT  ry\iXS<D  ♦  MAXLT(NTyN*  ♦  D 


C 


c 


c 


n  rs 
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;  IF  malfunctions  exist  CREATE’  F  L£*  READ 

;  ATTRIBUTES  Or  MALFUNCTILNS 

If  (NMl  EQ  (0),GO  TO  50 
DO  TO  AOfFOR  KK  *  ( 1 » ' NM) 

CREATE  MALFN  CALLED  0 
FILE  Q  IN  MLFNiJ.n 
LET  TLNOIOJ  =  I 

READ  RFPTM(Q) ^0!SCV^QWCRIT(Q) *0TFLG<G) »HRTS SO) .TOISCI 0) .PART'Q) . 
CMREPPSQ) .TREPP(Q).NREOS 
FORMAT{M2.2»5I2f lA, i3.M2.2» 12) 

DO  TO  30fFOR  KKKm  (DSNREQS) 

CREATE  ^REQ 

FILE  MFEO  IN  REQSSQ) 

30  LOOP 

READ  SHOPN(M) ,NOMEN(M) tSXiLLSM)  %FOR  EACH  M  OF  REQSSQJ 
format  14(2l2,n) 

C  CONVERT  manhours  TO  EcAPSEO  TIME 

let  NOM  -  0 

LET  NOM  ■  NOM  +  NOMEN (MM).  FOR  EACH  MM  OF  REQS(Q) 

IF (NOM)  E0( 0)  .  GO  TO  40 

let  R£PTM<0)  *  REPTM(Q) /FlOATF(NOM) 

40  LOOP 

C  ’F  A/C  READY.  START  EITHER  A  PREFlT  OR  AN  UPLOAD 

50  IF(CLAS(I))  N£  (5).  GO  TO  70 

REMOVE  I  epOM  aCST  i 

let  NACST  «  NACST  -  1 

IF  (  I  )  GE(NO»»EP)  ♦  GO  TO  80 

IF  ( TYNXS( I )  )  EQ  < -1 ) .  GO  TO  80 

IK  IWEPSTi n )  EQ  ( 1 < .  GO  TO  30 

CALI.  :.7EAM{  I  .  1  ) 

GO  TO  ICO 
Bu  call  PREFT (  i  ) 

GO  TO  100  i 

c  OTHERWISE  SCHEDULE  LTPRE  TO  ALLOW  FOR  UPLOAD  OR 

C  download. iF  necessary. and  A  preklight 

Iw  CREATE  LIPRE 

TLNCMLIPKE)  «  I 
let  LTP( ’ )  «  LTPRE 
let  B  =  0. 

IF  {  TC'JR  i  n  )GE  :0s»00  TO  75 
IF  {TYNXS(l5)£a  (-1).  GO  TO  7B 
LET  e  «  B  ♦  T IME  T ( n 
GO  TO  78 

75  IF  (TYNXS(rn  GE  (0).  GO  TO  78 
LtT  B  ‘  TIMf:T(2» 

7b  CAUSE  LTPRE  at  TMNAS(l)  -  TMPRT  -  8 
1 u  U  RETURN 

END 


SUBROUTINE  SPOFLdI 

START  POSTFLIGHT  ACTION 

CREATE  POSFL 

let  TLNOIPOSFL)  *  I 

CAUSE  POSFL  at  TIME  ♦  TMPOT 

LET  CLASf  n  •  11 

CALL  0UT{26»I »0*0.C) 

RETURN 

END 


EXOG  EVENT  START 

START  OF  SIMULATION*  CHANCES  FIRST  SAT.ANO  FIRST  SuN. 
TO  MOO  7  AND  CAUSES  FIRST  ShI'^T 
USED  «*HEN  READING  DAILY  MANNING  FROM  7AP£  13 
READ  FROM  TAPE  13*1  tJ 
format  < 13,14) 

IF  ( I )  FQ  ( 888  )  ,  GO  TO  30 
PRINT  i 

FORMAT (/// 37H  MANNING  TAPE  NOT  PROPERLY  POSITIONED) 

CALL  EXIT 
PRINT  2,J 
format { 14) 

READ  FROM  TAPE  lj,A 
format ( ai ) 
call  intlz 

let  FSAT  *  aM0D^'(FSAT-1  *7  . 
let  FSON  s  XMO  'F  {  FsAT*- 1  ,  7  ) 
create  shift 

CAUSE  SHIFT  AT  TIME 

CALL  Out  U7  ,F  :  at  ,NS-H0P  ,0  1 

DO  TO  20,  FOR  »ACm  Shop  v 

Call  Out  (  28 » nma i  »'• .  * )  ,nma  t  v  ,  >  ?  » N'^a '  o  '  m  ♦  3 )  •  '^ ) 

CALL  O'UT  <  20  .f.MAM'  t  M  ,  ;  i  .NM4  .,E  (  ’*,2  t  ,NMA  ,  t  ( >/ ,  n  » ; 
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REPORT  SlAASl  I  I  ) 

CANCELLED  SORTIE  ON  TAIL  NO., 


TAIL  NO.  CLASS 

«  « 

I  CLAS(n 

FOR  EACH  AC  i 


*  AT  *  DAYS.  »  HOURS.  *  HlNj 
n  DPARKTIME)  HPAPxT(T!MEl  M 

FIRST  MALFU 
OLD 


NO.  OF  OUTSTANDING  MALFNS 


NOOSM( I ) 
END 


rMLFNU  .  I) 


PART( TIME) 

NCTION  IN 

NEW  weapon  status 

*  #  * 

FMLFN(2  .  n  WEPSni;  TYNXo(I) 


TYPE  OF  NEXT  OORT  IE 


c 

S.-3ROUTINE  :)TEAM(I.J) 

C  START  team  ACUON.Jftl=UPLOAD.^=2sa..:«M.OAD»  J»3  =  SERVKt: 

CREATE  MALFN  called  L 
let  DI SCV( L  )  ^  J  ♦  2 
lev  CkIT(L!  ^  1 
ley  CTFlS(L)  =  1 
let  TLNCiL)  I 
let  REPTV'iL)  M’-'-Tlj) 
let  NN  =  MEAV(ji 
D^-  Y,;  i.  ,F  ..  =  <  1  !  1  NN  i 
R  L  A  T  M  R  £  s*  A  L  L  E  X 
LE  T  S^’‘-*PN  !  X  )  s  1  •-/  i 

L:.  T  N^.r-'rNl*.  )  ^  N(J.x) 

L. ;  T  E  ;  u  L  (  <  i  '  ■ L  ,^  (  -I .  r  j 

■  ;  i  .  :  '  i  N  ■<  c  w  j  (  I 


r'  A  ^  i,  y  T  '  ^  ,  S  S  1 

c  ^  c  I  A (  i  5  ^ 

I  f  t  j  I  E  1  (  1  )  t  i ^  ‘J 
I  f  !  „. )  c  ,  .«;?>» 


*  .  L  5-  V  r  V  M  i  )  -  1 

•'  r  .V  A  '  N  A  fi> «  »  ■ 


j  1  *  «t  ?  A  y  .UA  R  i/ »  C  s  Nw  Afsv.'! 


’  *  -  *  .  T  {  n  - 

L  :  i  N »-,.)»  w  '  '*  i  .,  •  *  -  1 

■*»  *  V  '  *  f  *  ;  .  .  L  A  ■  ‘  •  ,■  f  'i  A  ‘  .  A  »  ** 

"  L  N  *’ 

^  %r 


( 

SUBROUTINE  STNXSU) 

C  START  NEXT  SORTIE 

C  CALLED  AT  END  Of  A  DOWNLOAD  (SENSE  LIGHT  1  ON) 

X  IF(SENSE  light  l)l0»2 

C  START  DOWNLOAD  IF  fiECESSARY 

2  IP  (TCURS( T ) )  EQf-l)»GO  TO  10 
IFll)  GE(NOWEP)  .  CsO  TO  10 
IF  (TYNXS(IJ)  G£  (0)»GO  TO  10 
CALL  STEAM(I»2) 

GO  TO  ICO 

10  let  SENOOU)  *  SENONd) 

C  IF  NO  NEW  SORTIE  READ  iNt  FRE  A/C  IN  STANDING 

C  AND  RETURN 

IF  (PFLAGI I ) >  EO  (1 ) »  GO  TO  20 

LET  IoECL( I )  =  0 

FILE  i  IN  ACST 

LET  NACST  -  NACST  +  1 

LET  CLAS( I )  =  5 

GO  TO  100 

C  IF  NEXT  SORTIE  IS  TRAINING*  START  PREFLIGHT  AND  RETRN 

20  IF  (LTP{ I ) )  EQ  (0) .  GO  TO  22 
CANCEL  LTPRE  CALLED  LTPd) 

DESTROY  LTPRE  CALLED  LTPd) 
let  LTPd  )  *  0 

22  IF  d  )  G£  (NCWEf*)  »  GO  TO  21 
IF  (TYNXSd  )  )  GE  (0)  *  GO  TO  25 

21  CALL  PREFTd  ) 

GO  TO  100 

C  IF  WEAPONS  ABOARD.  START  PRFFLIOHT.  OTHERWISE 

C  START  UPLOAD 

25  IFIWEPSrd))  EQ  (0),  GO  TO  3C 
GO  TO  21 

30  CALL  STEAM! I ♦ 1 ) 

ICO  CALL  OUT(3...I  .CLAS!  I)  .NACST.O) 

RETURN 

END 


C 

SUBROUdNE  STOMTjIiK.CI) 

C  STOP  MAINT  If  All  outstanding  M.'.LFNS  are  not  CRITICAu 

C  IF  any  critical,  return 

LET  Cl  =  1 

let  NSO  =  SENOCid 

LEV  ^SN  s  5ENON(I) 

IF  (Id  EQ  tu)  ,  GO  TO  31 
C  called  from  LTPRE 

C  STOP  MAINT  U  all  OUTSTANOING  M/^LFNS  ARE  NOT  CRITICAL.  OTHrlRwISE 
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:  RETURN 

10  00  TO  15»  FOR  EACH  L  OF  MLFNiNSO*!} 

IF  (CRIT(L))  EQ  (l)t  GO  TO  100 
15  REPEAT  10 
60  TO  34 

31  DO  TO  32»  FOR  EACH  t  OP  MLFNi  NSO » I » t  WITH  (DlSCVajJ  £0  (OJ 
IF  (CRIT(L)  I  EQ  ID*  GO  TO  100 

32  REPEAT  31 

C  STOP  WORl^  ON  ALL  MALFNS  AND  RESCHEDULE  WORIC  FOR  END 

C  OF  NEXT  postflight 

34  let  CI  *  0 

let  LI  »  FMLFN(NSO.I) 

35  IF  (LlJ  EQ  (0),  60  TO  6C 
LET  L2  «  SMLFN(Ll) 

IF  iK)  EQ  ( 1) »  GO  TO  38 
IF  (DISCVILI) INE  (0»*  GO  TO  50 

38  let  DISCV(LI)  «  1 

IF  IK)  EQ  <0) ,  GO  TO  39 
REMOVE  LI  from  MLFNINSO.I) 

FILE  LI  IN  MLFN<NSN»n 

39  let  NPOSM(NSiN.I  )  *  NPOSM(NSN»n  ♦  1 

C  MALFN  EITHER  U;  PROCESS  OR  IN  QUEUE 

C  IF  MAlFN  in  £SS» terminate  MAINT. 

4u  STORE  FREQS(Ll)  IN  X 

IF  (SHOPN(X))  EQ  (05*G0  TO  46 

FIND  FlRSTtFOR  EACH  CARD  OF  W 1 P ( SHO^N ( X ) ) * W I TH  <MLFTN(CAROn 
CEQ  (Ll)»  IF  NOnE»  go  TO  45 
call  TERM! Li *0.1) 

60  TO  48 

C  IF  NOr  IN  PROCESS  REMOVE  MAlFN  FROM  ALL  QUEUES 

45  DO  TO  47,  FOR  EACH  J  OF  REQSJLIJ 
LET  M  SmUPN(J) 

Call  RCRDM(Ll>M) 

46  IFICLSSP.lin  EQ(0».  GO  TO  47 
let  N  *  Pm  a(Li  ) 

REMOVE  LI  from  MALP(N) 

let  NMALPIN)  «  NMAl.P(N)  -  1 

LET  (  LSSPILl  )  *  0 

call  0UT« 33»N.NMALP(N} ♦NSE»rfM»0) 

47  REOEat  45 

4ft  let  NOOSMin  «  MOOSMil)  -  1 
50  let  Ll  *  L2 
GO  TO  35 

50  IF  (NOOSMUn  NE  (Ol»  CALL  £RRil3) 

C  SET  MALFN  COUNTS  TO  ZERO 

let  NOMEMII)  »  0 
let  NQ.MNMtl)  *  0 
let  noptmi  I  :<  >  0 
call  0JT{33»1 *999»0»0» 
luu  return 
£NP 


fscifs  f>r%  n  Ckn  nn 


SUBiOUTINE 

TERNINATE  MMINTENAMCE  OH  Le  UPDATE  REMA1H!HQ  REPAIR 
TIME  AMO  CANCEL  END  OF  MAINT 
LET  REPTMILI  ■  FIHTMILI  -  TIME 
CANCEL  MTN  CALLED  MTNR(LI 
DESTROY  MTN  CALLED  MTNR(L) 
let  MTNR(LJ  ■  0 

REMOVE  EACH  CARO  OF  L  FROM  WIP*  FILE  IN  HALM  UNLESS 
CALLED  BY  STOHT(J«ll 
10  00  TO  AO* FOR  EACH  K.  OF  REOStL) 
let  M  •  SHOPNtIC} 

CALL  RCROWiLtH) 

IF  MALFN  ON  OVERTIME*  DO  NOT  REASSIGN  HEN 
IF  iSTOVTILHEO  <0»}*  GO  TO  12 

LET  OVTMH  »  (TIME  STOVT<Ln*(FLOATF(NOMEN(K)-SUBCKn  > 

CALL  OUT(39»M*OVTMH»0*OI 
LET  STOVTtLI  «  0, 

GO  TO  (30*14*14)*J 
14  CALL  FCROM*L»M) 

GO  TO  30 

12  GO  TO  (2Q*13»13}*J 

13  CALL  FCRDM(L»M) 

IF  CALLED  BY  OCPREt  J*2  S  *CA'JS£  'CALL  MAINT  *  .OTHER¬ 
WISE  CALLED  BY  SHIFT CJ»3)  REMOVE  NEXT  CARO  FROM  WIP 
GO  TO  (100*20.3CJ»J 

IF  called  by  DOPRE  OR  STOMT.  RETURN  MEN  TO  SHOP  AND 
TRY  TO  START  MTCE  AT  THIS  SHOP 
CALLED  BY  DOPRE  OR  STOMi 
20  let  NMENAIMI  •  NMENAIM)  ♦  NOKENU)  -  SUB(<) 

If  MALMIHI  IS  empty.  GO  TO  30 
CREATE  CALLM 
let  MAN(CALLM)  ■  M 
CAUSE  CALLM  AT  TIME 
30  C.'LL  0UT(32.M.NM£NAJM)  ,*‘,TLNO(Ln 
40  repeat  10 

updates  aircraft  statistics 

LET  I  •  TLNO(Li 
let  NOMEMin  •  NOMEMtn  -  1 
let  NOMNM<n  •  NOMNM(U  ♦  1 
CALI  CL4$&( li 
100  RETURN 
END 


C 


SUBJ^OUTInE  USEMN(M) 

If  MALM(M)  is  empty. 
STORE  FMALM(M)  in  0 
1?  IF(0)  E0<0).  GO  TO  ! 


IF  QREP  (M»  IS  EMPTY*  CO  TO  100 


r>  o  r» 
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STORE  SHALHCQ)  IN  QQ 
let  J  •  MLFTNIQ) 

LET  11  ■  TLNOtJI 
LET  NOMNMdU  •  NOHNNCIU  -  1 
LET  JJ  »  OISCVIJl 
CALL  MTCE  (J»NN) 

IE  (JJ)  LE  (2)»  60  TO  20 
IF  CJ«i)  EO  (6)t  60  TO  20 
LET  C.AS(U)  •  JJ  ♦  9 
20  IF  iNMENA(M))  LS  (0)f  CALL  CRR(S) 

IF  (NNENAiH))  EQ<0)f  60  TO  26 
LET  0  «  00 
60  TO  17 
18  CALL  BENCHCM) 

26  CALL  0UTJ22*NRIP(M} •NQR£P(M»*MtNMALN<Nn 
ICO  RETURN 
END 


subroutine  USEPTIN.JI 

SUBROUTINE  TO  ATTEMPT  TO  USE  PART  ON  ANY  WAITIN6  MALS 
IF  OUTSTANOIN6  CANNI8ALI2ATI0NSCNCANB  6R  0)* 

PUT  PART  BACK  ON  A/C. 

IF(NCAN6(Nn  EQ(0I»  60  TO  1C 

START  A  REPLACE  ACTION  TO  PUT  BACK  A  CANABALIZEO  PART 

LET  1*  0 

let  NCAN8(N)  •  NCAN8<Ni  -  I 
LET  NMALPiN)  •  NMALP(N)  -  1 
let  NPRTAtNJ  *  NPRTA(N)  -  I 
CALL  0UT(3A.N.NMALP(N) »0*0) 

60  TO  100 

attempt  to  use  part 

10  DO  TO  20.  FOR  EACH  L  OF  MALP(N) 

REMOVE  L  FROM  MALP(N) 

LET  KMAlP(N)  •  NMALPIN}  •  I 
let  CLSSPILJ  •  0 
let  I  •  TLNOaJ 
let  NOPTMin  •  NOPTMt  n  -1 

IF  QUESILI  is  not  empty,  let  NOwriMd!  •  NOMNMin  -  I 
IFKANARLL))  £0<0».  60  TO  IS 
let  K  •  CANAR(L) 

CANCEL  CANA8  CALLED  K 
DESTROY  CANAQ  CALLED  K 
let  CANARIL)  *  C 
IS  CALL  MTCe(L**NN) 

CALL  OUT(  34.N.NMAI  '><NI  .N0PTM(  I  }  .  I  » 

IF  (NNI  E0il>*60  TO  100 
20  REPEAT  10 
100  RETURN 
END 


KJ  U  U  U  U 
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C 


V. 


C 

c 


c 


ENOOO  EVENT  WT&OR  1 

END  OF  WAIT  FOR  SORTIE 

LET  I  ■  TUNOIttTSOR}  1 

LET  J  ■  TYNXSd)  1 

IF  SORTIE  CANCELLED  USECL-l ) tFlLE  A/C  IN  STANDING 
AND  RETURN 
LET  IJ  •  ISECLU) 

IFdSECLdd  E0(0}»60  TO  S  1 

LET  ISECLU)  -0  I 

FILE  I  IN  ACSr  1 

let  NACST  *  NACST  ♦  1 

let  CLASd)  *5  1 

GO  TO  80 

SORTIE  NOT  CANCELLED  -  NOTE  IF  SORTIE  IS  LATE 
5  LET  Y  •  TIME  -  TMNXSd  ) 
let  JJ  -  TYNXSd)  ♦  2 


IF  (Y-MAXLT(JJ) )  GR(0)*  CALL  ERRI14)  T 

NOTE  TO  IGNORE  CANCEL  SORTIE! IDYCL-1 )  AND  CAUSE 


SORTIE 

50  let  KL  •  CLSEEd) 

IF  (XL)  EQ  (0)»  GO  TO  55 
CANCEL  CLSE  CALLED  XL 
DESTROY  CLSE  CALLED  XL 
LET  CLSEEd)  >  0 
55  CREATE  SORTE 


LET  TLNO(SORTE)  •  I  1 

LET  T  •  TIME  SELEN(SENOO(  1 )  »I)  I 

CAUSE  SORTE  AT  T  1 

LET  ENOSEd)  •  T  1 

LET  TCURSC I )  •  TYNXS! I )  1 

LET  CLASd)  ■  *  1 

IF  (TYNXSd))  EQ(0)»  LET  CLASd)  ■  6 

let  TMNXSCl)  •  TMFLSd)  1 

IF  (TNS)  EO  (0)  ♦  let  TMNXSd)  ■  999.9 

let  TYNXS( I )  ■  TYFLS( I )  1 


IF  any  ground  alert  MALFNSf  CAUSE  MAINT  START 
ON  PROPER  DAY 

:f  (ngamn(senoc( n *1) )Eq  (0)*go  to  so 

so  no  TO  rOiFOR  each  L  of  MLFN(SENOOd )*I ) *  WITH(0ISCV(L) )  EQ  (6)#AN0 
C(TDISCa;i  GR  (0) 

CREATE  CLMTC 
LET  MFNtCLMTC)  •  L 

CAUSE  CLMTC  AT  TIME  ♦  (FLOATF(TOISC(L) )  ) 

70  REPEAT  60 

NOTE  A/C  MAS  NO  GOOD  PREFLIGHT  ON  IT 

80  LET  PREFNd)  ■  0  I 

100  DESTROY  WTSOR  1 

CALL  OUT( J5*1*IJ*Y  JJ) 

RETURN  1 

END  1 
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FUNCTION  ZEROICARD) 

MAKES  A  RANKED  SET  A  FIFO  SET 

LET  ZERO  ■  0 

RETURN 

END 
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AHALYSIS 


•f 

lAC  E 

4- 

2PART  E 

♦ 

3SH0P  E 

♦ 

fRiNT 

F» 

♦ 

9FSAT 

1 

♦ 

lONBNCH 

I 

♦ 

IICNACW 

F 

♦ 

12CSACW 

F 

4- 

13MXACW 

I 

♦ 

14NACWW 

F 

4- 

15LAST 

F 

4- 

16GTSUB 

I 

4* 

17GOVTM 

F 

♦ 

18GNPRE 

I 

4> 

i9GXMLM 

I 

4- 

20GXREP 

I 

+ 

21GXMLP 

! 

4- 

22GCANB 

I 

4- 

23FMSDS 

I 

4- 

24LV.SDS 

I 

>4 

25GSORT 

1 

4- 

26NUML 

F 

4 

27LTPSE 

F 

4 

28LTTHR 

F 

4 

29LTHPS 

F 

4 

30NMISS 

F 

4 

31NMSPS 

F 

4 

32TMANH 

F 

4 

330VPTH 

F 

4 

34CANPS 

F 

4 

35LTPA 

I 

4, 

36LTPS 

I 

4 

370FILR 

F 

4 

38AVAIL 

F 

4 

39CATOT 

F 

4 

40TAVAL 

F 

4 

41NTURN  2 

I 

4 

42CTRNA  1 

F 

4 

43CTRNX  1 

F 

4 

44MAXTA  1 

F 

4 

45MAXTX  1 

F 

4 

46AVTAA  1 

F 

4 

A7AVTAX  1 

F 

4 

46NA 

I 

4 

49NFL 

I 

50GPNDU 

F 

4 

51GNSRT 

I 

4 

62GMNPS 

F 

4 

53MINTA  1 

F 

4 

54MINTX  1 

F 

4 

55XORE 

I* 

4 

56CNMNM  1 

F 
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56MEMNM 

1  F 

57CSMNM, 

1  F 

57SDMNM 

1  F 

58TNMNM 

1  F 

59CNPTM 

1  F 

59MEPTM 

1  F 

60CSPTM 

1  F 

60S0PTM 

1  F 

61TNPTM 

1  F 

62TCLAS 

1  F 

63CNMEM 

1  F 

63MEMEM 

1  F 

64CSMEM 

1  F 

64S0MEM 

1  F 

65TNMEM 

1  F 

66CLS 

11/2  i 

66N0MNM 

12/2  F 

67XTURN 

1  F 

68NOMEM 

11'2  F 

68N0P1M 

12/2  F 

69NRUSH 

1  I 

70AT0TL 

1  F 

71ATURN 

1  F 

72NASK.S 

13/4  I 

72NFILS 

14/4  I 

72MXMLP 

12/4  I 

72NCAN6 

11/4  ^ 

73Cf^MLP 

1  F 

73MEMLP 

11/2  F 

73SDMLP 

12/2  F 

74CSMLP 

1  F 

75TNMLP 

1  F 

76TA 

F 

7tiFILLR 

11/2  F 

77EXHRS 

1  r 

78NMALP 

12/2  F 

79CMENA 

1  F 

80CSMEN 

1  F 

SHMENA 

1  F 

02CQREP 

1  F 

82MEREP 

1  F 

83CSREP 

1  F 

83SDREP 

X  F 

84TQREP 

1  F 

83MXREP 

11/2  1 

85NPREE 

12/2  I 

86CNMLM 

1  F 

SfcCMALM 

1  F 

87C SMLM 

1  F 

eeTHALM 

1  F 

80TNMLM 

1  F 

89NXW1P 

12/3  I 

♦  ♦ 
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i' 


♦ 

♦ 

♦ 

♦ 

♦ 

+ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

+ 

+ 

4- 

♦ 

♦ 

4 

4 

4 

4 

4 

4 

4 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

4 

4 

4 

4 

4 


4 


4 

4 

4 


89HXMLM 

11/ 3 

I 

89MAXLM 

13/3 

I 

90CNW1P 

1 

F 

90MEW1P 

1 

F 

91CSWIP 

1 

F 

91S0WIP 

1 

F 

92TNWIP 

1 

F 

93NMENA 

11/2 

F 

94GEXHR 

F 

93NQREP 

12/2 

F 

95NMALM 

11/2 

F 

95NW1P 

17/2 

F 

97FSUN 

1 

986SWIP 

F 

990VTMH 

1 

F 

lOOGMWiP 

F 

lOlGSPTM 

F 

102MEMEN 

1 

F 

103S0MEN 

1 

F 

i04UTIL 

1 

F 

1 05MEMLM 

1 

F 

106SDMLM 

1 

F 

107MANPS 

1 

F 

lOSMNMEN 

11/2 

I 

108TSUB 

12/2*1 

109NMSSD 

11/3 

I 

109NTSRT 

12/3 

1 

109NUMLS 

13/3 

1 

lilLATEH 

1 

F 

112NSORT 

1 

I 

113NMHPS 

1 

F 

114GHUSE 

1 

F 

iiSGUTiL 

1 

F 

lUCLSS 

1 

F 

1 ITPtSS 

1 

F 

H9GMMUM 

F 

UOGSMLM 

F 

UIGMREP 

F 

122GSREP 

4 

123GMMtP 

p 

),24GSMLP 

p 

125CLAS 

<1* 

F 

126CUT1L 

2 

P 

127CSUTL 

? 

r 

!2euT iui 

'1 

C 

F 

U9SDUT2 

4. 

F 

130NMASH 

;  /? 

\ 

I SlMUScD 

2 

F 

i3?OCMLH 

\ 

c 

1  a  30  SMI, 

% 

* 

P 

i  2 

t 

1  rsf 

4  >,3  G* 

i 

ft' 

f 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4T 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4- 

4 

4 
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r  MS0SE4 


136URPRT  I* 

137WHERE  I 

UeTNACW  F 

139MSACW  F 

140SOACW  F 

1416KPTM  F 

142NSHFT  1  I 
143GSHNM  F 

144GMMNM  F 

145GSMEM  F 

i46GMMEM  r 


MSD5 

TME 

4 

F 

TALNO 

2 

I 

TYPE 

3 

I 

PHSOS 

12/2 

1 

* 

SMSDS 

11/2 

I 

147B0RR 

F 

148KC0RR 

F 

149NOWEP 

I* 

130MAXME 

1 

151CSTRA 

1 

f 

151S0TRA 

1 

F 

152CSTRX 

1 

F 

152SOTRX 

1 

1 

F 

153CMNGE 

I 

•ZERO  I 
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SU8ROUTINE  ANLYZ 

LET  DlV*1.0/( TIME  -  LAST) 

COMPUTE  GSORT  *  SUM  OF  NSORT(l)»FOR  EACH  AC  I 
C  SHOP  STATISTICS 

00  TO  1C » FOR  EACH  SHOP  M 
LET  SQMLM  *  NiHALM(M)**2 

ACC  NMALM(M) iSQMLM  INTO  CMALM(M) t CSMLM(M)  ALL  SINCE  TMALM(M) 
let  MEMLM(M)  CMALM(M)»OIV 

let  SDMLMIM)  *  SQRTF(0IV»CSMLM<M)-MEMLM(M)**  ) 

IF{MXMLM(M) IGR  (GXMLM).  LET  GXMLM  »  MXMLM(M) 
let  SQREP  *  NQREP(M)*»2 

ACC  NGREPCM) tSQKEP  INTO  CQREPIM) *CSREP (M)  ALL  SINCE  TQREPtM) 
let  MEREPtM)  *  COREP (M)*OIV 

LET  SDSEP(M)  *  SORTF ( 0IV*CSREP( M»  -  MEREPIM)*«2  ♦  •OOOOOU 
IF  iMXREP(M))  GR  (GXREP).  LET  GXREP  *  MXPEP(M) 

LET  SOWIP  «  NWIP(M)«»2 

ACC  NWIP(M) *SQWIP  INTO  CNWIPIM) #CSi^IP(M)  ALL  SINCE  TNWIP(M) 
let  MEwlPlMi  *  CNWIP(M)*DIV 

LET  SOWIPIM)  *  SQRTF(DIV«CSWIPIM)  -  MEWIP(M)**2; 
let  GOVTM  *  60VTM  ♦  OVTMH(M) 

LET  GTSUB  «  6TSU8  ♦  XA8SF( TSUOiM) )/2 
let  GNPRE  *  GNPRE  ♦  NPREE?MJ 
LET  HOURiJ  *  0. 

DO  TO  8. FOR  I  *  (1)(6) 

let  MOURU  »  HOURU  ♦  HUS£0(M*I) 

LET  SN  •  FLOATFtNSHFTI I ) ) 

IF  (CHNGE)  EQ  (0)#  GO  TO  7 

LET  UTILZ(M#I)  «  HUSEO(M»I )/CUTlL(M.I ) 

60  TO  8 

7  let  UTILZ(M»I)  *  CuTiLIMi I ) /SN 

let  SOUTZlMtl)  »  SQRTF(CSUTHM»I ) /SN  -  UTlLZ{K*n**2  ♦  .000001) 

8  LOOP 

let  MANPS(Mj  »  HCURU/FL0ATF(GS0RT) 

10  LOOP 

let  NA  ^0 
LET  NFL«^ 

DO  TO  20*  FOR  EACH  PART  N • w  1 7H( NASXS ( N ) )  G«  10) 
let  SOMLP  «  NMALP(N)**2 

ACC  NMALP< N) .SQMlP  INTO  CNMcP ( N ) » CSMLP ( N )  ALL  SINCE  TNMLPIN) 

let  MEMLPJN)  •  cnmlp<n»*oiv 

let  SOMLP(N)  ■  OiVACSMLPtN) -MeVLP«N)**2 

IF  (SDMLP<N))  GE  (0)t  GO  TO  15 

call  C0RE(<C*^»XXH  28000)  J 

CALL  iXfT 

15  LfT  SCHLPIN)  »»  SQRTFCSOMLPIN)  ) 

IF  i«X*^LP!Nl)  OR  (GXHLPi  .let  •  MXyLP«N} 

It T  FIlLFiN)  ■  FtOATFi NF iLG«N) WFLOATF .NASKS«N) 1 
LL  T  NA  *  NA  ♦  NASFSIN) 
let  Nf  L*  I  *NF  IL..  iN) 
let  G‘'-AN6  *  i.>CAN*'  ♦  NT  (  ■  i 
2-  LOOP 

C  AiPCSArr  I  A  r ;  1  i 

00  TO  To. FOP  t'AC^^  a;  : 


LET  SQMEM  *  N0MEM{I)»*2 

ACC  NOMENK  n*SOM£M  INTO  CNMEM(  11  *CS.MEH(  1)  ALL  SINCE  iNNEMt  U 

lETMEMEMM/  *  CNMEMI  1 DIV 

LET  SOMEMU)  *  SaRTF(DIV«CSMEMri}— 

let  SQMNM  *  NOMNM(  I)#*2  .  ,  - 

ACC  NOMNHt i f f SQMNM  INTO  CNMNM ( i ) # CSMNM (1 )  ALL  SINCE  TNMNHLU  ^  - 
LET  MEMNMIM  •CNMNMMlfOlV 

let  SDMNMI  1)  «  SQRtFCOlV*CSMNM(  1 1  -  MEMNMM  I  WJ  '  ^ ^  ^  ^ ^ ' 

let  SQPTM  *  N0PTMll)««2  .> 

ACC  NOPTMl 1) *SQPTM  INTO  CNPTM( I »•CSPTM(^)  ALu  SINCE  TNPTMlij 
LET  MEPTM(I)  *  CNPTMtI)»DIV 

LET  SOPtMdV  •  SQRTFtOlV#GSPTMLl5  -  MEPTM(n*»2) 

,-30  LOOP 

COMPUTE  GMMLM,G$MLM  *  MEAN*STD-DCV  OF  ME«LM(M)  ••^OR  EACH.  SHOP  M 
COMPUTE  GMREP*GSREP»MEAN.ST0-0EV  CF  M£PcPfM}>rOR  EACH  SHOP  M  : 
COMPUTE  GMWiPtGSWiP  «  MEAN*STD-DEV  ,0^  MEWlPCM) *FOR  EACH  SHOP  M 
COMPUTE  GMMLP>GSMLP  *  MEAN^STO-DEV  CrMEMLPlNi^FOREACHPARTH;; 

COMPUTE  GMMEM.CSMEM  *  MEANfSTC-DEV  OF  ME^EMiDiKOR  EACH  «C  I  •• 

C*  «iTH  (NSOPTn )  J  OR  «0>  ^  . 

COMPUTE  GMMNM*GSMNM  •  MEAN»StD-OEV  CF  MEMNMLUtfOP  EACH  AC-  I .  '  if; 

C»  WITH  (NSORTt  I  I  I'  OR  <  01  ■  ' 

COMPUTE  GMPtM*GSPTM  *  MEAN*STO-DEV  OF  MEPtMtll^FOR  EACH  AC. I  . 

C#  WITH  {f;SORT{nj  GR  (0) 

DO  TO.  33 »■  FOR- EACH  AC  V 

ACC  l*Q  INTO  CLASMfCLS(  in  SINCE  tCLASIlJ  ’ 

33-  LOOP  •  ,  ■■■"•  "i-'f-  , 

let  gnsrt  .-a-'.  '■'i'.,...-  ■  - 

DO  TO  35tFOR  I  *■  UH3>.  : 

let  gnsrt  •■gnsrt  ♦  NTSRT'IU 
35  LOOP  :i 

CALL  ANA21 
lOU  RETURN 
END 


C 

SU8R0UTINC  AHASl 
C  SYSTEM  statistics 

lit  DlV  »  l.U/(TmL-LAST) 

let  NUMt  »  NU«‘v$t  n  ♦NU«LS<  ^  1*NuMLS»  5i 

let  &S  •  AwUATf tSSORTf 

let  LTPif  UO**NUML/OS 

let  LTTHR  •  LATtHl  n*LAT€Hl2)^LAUHi}l 

let  lThPS  •  LTThS/0^ 

LE  T  NM*$S  •  ■SMS;^0{  n*.S|MSSO{  2i*NMS>Dn» 
l.ET  NMSPS  •  ;  :  .*NM}ss/{GS*‘i«lSS) 

CO^’PyTf  TM  »  SwM  Of  NMAS^JM*  I  »  .FC®  EAC'-‘  SHQP  M»  FOR  I  •U  H^} 
L£T  TMANH  s  rn»e,»lTlM£  -  LAST) 

LCT  OVPTw  •  1  ..r  .  •G3V  TK/ Thanh 

l.£  T  CANPS  »  i  ..  :  .*fLGAtE(LvANe»/GS 
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L£T  OFIlR  *  FL0ATF(NFL)/FL0ATF(NA) 

LET  CATOT  *  0. 

DO  TO  <»0,F0R  J  =  (i  )  (14) 

COMPUTE  CLSS(J)  *  SUM  OF  D£CHR(CLAS ( I # J) ) »  FOR  EACH  AC  I 
LET  CATOT  *  CATOT  ^  CLSSU) 

40  LOOP 

DO  TO  50, FOR  EACH  AC  I 
LcT  ATOTL( I )  «  0, 

DO  TO  45. FOR  K  -  ( 1 ) ( 14) 

LET  ATOTLd)  *  ATOTud)  +  CLAS(I.K) 

45  LOOP 
50  LOOP 

let  avail  =  24«*(TIME  -  LAST) 
let  TAVAL  =  FL0ATF{NAC)*AVAIL 
DO  TO  55. FOR  J  =  (11(14) 
let  PLSS(J)  =  100. *CLSS( J) /CATOT 

55  LOOP 

DO  TO  56,  FOR  I  =  ( 1) (2) 
let  Q  =  NTURNCIfli 
let  R  =  NTURN( I ,2 ) 
let  AVTAA( I )  =  CTRNA( I )  /  Q 
let  AVTAX(I)  =  CTRNXdl  /  R 

let  SDTRAII)  =  SQRTF(CSTRA{ I ) /Q  -  AVTAA(1)**2) 

LET  SDTRXd)  =  S(3RTF  (  CSTRX  d  ) /R  -  AVTAXd)«*2) 

56  LOOP 

DO  TO  60, FOR  I  -  ( 1 5 (6) 

DIMENSION  HSS(6) 

IF  (CHNGE)  cO  (0).  50  TO  58 

COMPUTE  HSSd)  =  SUM  OF  CUTlLiM.I),  FOR  EACH  SHOP  M 
56  COMPUTE  GHUSE  d)  =  SUM  OF  HUSED  ( M » I  )  »FOR  EACH  SHOP  M 

60  LOOP 

COMPUTE  GMNPS  =  SUM  Or  MANPS(M).FOR  EACi^  SHOP  M 
COMPUTE  GEXHR  =  SUM  OF  EXHRS(M)»  FOR  EACH  SHOP  M 
let  HU  =  0. 
let  HA  -  0. 

DO  TO  65, FOR  1  =  ( 1 ) (6) 

IF  i CHNGE)  £0  (0),  GC  TO  61 
let  GUTIL(I)  =  GHUSEd  )/HSS(  1  ) 
let  HA  =  HA  +  H55( I ) 

GO  T;  62 

61  LET  i^S  =  FLOATF(NSHFTd  )  )*NMHPSd  } 
let  CUTIL(I)  =»  GHiJS£<n/HS 

let  ha  =  HA  +  FLOAlFiNSHFTd  )  J»Ny.HPSd  5 

62  LET  HU  =  HU  +  GHUSt  •'  1) 

65  LOOP 

let  GRNDU  =  10C..,*HU/HA 
LET  SQ  =  NACW.  <^*2 

ACC  NACWW.  INTO  CNACv,'v  CSACW  ALL  SINCE  TNACW 
let  MEACW  =  DiV»CNACW 

let  SDACW  =  SQRTF(0IV*CSACW  -  MFACW«*2  +  .COOOl) 
let  BORR  =  BURR  +  CLAS(:t2)  +  CLA^dd)  +  CLAS(I»5)  +  C.LAS(I.9) 
C+  C«.^sd»6)+  CLA5d»4)*  FOR  I  =  dXNOWEP-i) 
let  BORR  s  DECHR(30RR) 

LEI  KCORk  -  XCORR+CLASI I ,2)+CLAS< I .?)+CLASi ; .5)+CLAS{ I .9) 
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€♦  CLAS{I,6)+  CLAS(lt4)*  FOR  1  *  I NOWCP ) ( NAC ) 

LET  KCORR  »  DECHR(HCORR) 

LET  AA  •  FLOATF<NOWEP-l) 

LET  3B  *  FLOAT  rJNAC  -  NOWEP  ■»■  1 ) 

LET  •  noo.^BORR)  /  (AA*AVAIL) 

let  ICCORR  *  (100.*KCORR)  /  (BB*AVAlL) 

LET  MAXME  *0 

00  ^0  67»  FOR  EACH  SHOP  M*  WITH  {MNKENIM.)  }  N£  (9995!^ 
LET  MAXME  »  MAXME  ♦  XF IXF  ( NMENAIM )  )  -  MiMMENtM) 

67  LOOP 

CALL  INTER 

CALL  INTRl 

LET  LAST  »  TIME 

00  TO  80, FOR  EACH  SHOP  M 

LET  CMALMJH)  *  0. 

LET  CSMLM(M)  «  0. 

LET  CQREP(M)  *  0. 
let  CSREP(M)  »  0, 

LET  CNWIP(M)  «  0, 
let  CSWIP(M)  «  0. 
let  MXMLM(M)  »0 
LET  MXivcPiM}  =0 
LET  OVTMH(M)  *  0, 

LET  TSUBfM)  =  0 
LET  NPREE(M)  =0 
LET  OCF(LM{M)  *  0. 

LET  )SMLM{M)  »  0, 

LET  f^NHEN(M)  »  NMENA(M) 

let  EXHRS{M)  =  0 

00  TO  70, FOR  I  *  (1)(6) 

LET  CUTIL<M,I )  =  0, 

LET  CSUTL(M»I)  =  0. 

LET  HUSEO(M, I )  =  0. 

70  LOOP 
60  LOOP 

LET  GXMLM  »  0 
LET  GXREP  *  0 

DO  TO  90, FOR  EACH  PART  N,WITH  (NASXS(N))GR  (0) 

LET  CNMLPINJ  »  0, 

LET  CSMLP(N)  «  0, 

LET  MXMLP(N)  »  0 
let  NFIlS(N)  *  0 
LET  NASKStN)  *  0 
let  NCANB(N)  =  0 
90  LOOP 

DO  TO  110, FOR  EACH  AC  I 
let  CNMEM( I )  *  0. 
let  csmek( n  =  0. 
let  cnmnm( n  =  0, 

let  CSMNM(I)  =  c, 
let  CNPTy.{  I  )  =  0. 

LET  CSPTM( 1)  *  C. 
let  NSORK  I  )  =  C 
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DO  TO  105. FOR  J  s  (l)a4} 
LET  CLASd.JJ  s  0. 

105  LOOP 
110  LOOP 

DO  TO  120. FOR. I  *  (1)(6) 
LET  NSHFT(  I )  »  0 
120  LOOP 

DO  TO  130. FOR  I  «  (1)(3) 
LET  NUMLS< I )  «  0 

let  LATEH( n  *  0. 

LET  NTSRTC I )  »  0 

LET  NMSSD( 1 )  *  0 

130  LOOP 

LET  LTPA  a  0 
LET  LTPS  *  0 
LET  LTTHR  =  0. 

LET  NUML  *  0. 

LET  NMISS  a  0. 

LET  CNACW  =  0. 

LET  CSACW  =  0. 

LET  MXACW  =  0. 

LET  NBNCH  a  0 

LET  GCAN3  *  0 

LET  GOVTM  »  0 

LET  GTSUB  *  0 

LET  GEXHR  =  0 

LET  GMNPS  a  0 

DO  TO  135.  FOR  I  »  (1) (2) 

LET  NTURN{ I .1 )  -  0 

LET  NTURNt 1.2)  *  C 

LET  MAXTAt I )  »  0 

let  MAX1X( I )  a  0 

LET  MINTA( I ?  a  999. 

LET  MlNTXdJ  a  999. 

LET  CTRNXI 1 )  a  0 
LET  CTRNAI I )  a  0 
LET  CSTRA(I)  »  0 
LET  CSTRX( I )  a  0 
135  LOOP 

LET  NRUSH( 1)  a  0 
lEY  NR'JSHC^)  a  0 
d  ;  ?ORR  V  0 
LET  rcORR  -  0 
STORE  FMSl':>  IN  J 
140  IF  { J)  EQ  (0) , GO  TO  150 
STORE  SMSDS(J)  IN  < 

REMOVE  J  FROM  MSDS 
DESTROY  MSOSE  CALLED  J 
LET  J  a  L 
GO  TO  14C 
150  RETURN 
END 


C 


10 

100 


c 


IOC 


c 
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SUdROUriNE  CANCL  n»J*P»T) 

let  NMSSD(J)  *  NMSSD(J)-H 

CREATE  H50Se 

let  TALNOCMSOSE)  *  I 

let  TYPE5MSOSE)  *  J 

LET  TME(MSOSE>  P 

FILE  MSOSE  IN  MSDS 

RETURN 

END 


SUBROUTINE  CLASS! I » J*K*T  } 

IF  (J)  GR  <3) »GO  TO  100 
LET  TIME  *  T 

ACC  1^0  INTO  CLAS( 1 .CLSi! J I  SINCE  TClAS( 1 ) 
IF  (K)  EG  (0\,GQ  TO  iO 
let  CLSII)  1 
GO  TO  100 

10  let  cls( n  =  2 

LOO  RETURN 
END 


SUBROUTINE  CLMTC( I t J*K»L.T) 

IF  (L)  EQ  ( 1) »  GO  TO  100 
ir  ( J)  EQ  (0) .GO  TO  100 
let  NASKS(J)  =  NASICS(J)  +1 
IF  (R)  EQ  (0),LcT  NFILS(J)  »  NFILS(J)  +  1 
LOO  RETURN 
END 


subroutine  CREPT!  I  ♦J»lCtL*T) 

let  time  =T 

let  SQMEN  =  NMENA! I ^**2 

ACC  NMENA!  1)  ♦SQMcH  INTO  CMENA  !  1)  ,  CSMEN !  I )  ALL  SINCE  TMENAIDtAuD 

C-1.0 

IF  !J)  l.S  IMNMEN!  I  )  )  *LET  NNMEN!I)  =  J 
let  SQREP  *  NQREP  ! I )>«2 

ACC  NuREP! n tSQREP  INTO  CQREP ! I ) • CSREP ! H  ALL  SINCE  TQREP ! I ) » POST 
CFL0ATF!L) 

RETURN 

END 


XXX 
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SUBROUTINE  DOPRE 

LET  SQREP  *  NQREP(n**2 

LET  TIME  *  T 

ACC  NOREPlUf  SQREP  INTO  COREPII)  .CSREPI I )  ALL  SINCE  TQREPCD.ADD 
C1*0 

IF  (IC)  GR  (MXREP(  I )  )  *LET  MXREP(l)  *K 

RETURN 

END 


SUBROUTINE  ERR(N) 

CALL  ERRR(N) 

CALL  CORE(KXX.ICXXUORE) ) 

STOP 

RETURN 

END 


C 

X 

X 


X 


REPORT  ERRR  (N) 


ERROR 

NUMBER 

N 

END 


NUMBER 

Page 


END 


ERROR 


C 


X 

PAGE  **  3 

X 

X 

X 

X 


X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


SUBROUTINE  EXTRA! I #A) 

LET  EXHRSl I )  »  EXHRS! I )  +  A 

RETURN 

END 


X  X 


SUBROUTINE  FCRDM( I » JfK.T ) 

LET  SQM  *  NMALM(I)*»2 
LET  TIME  -  T 

ACC  NMALM(n*SQM  INTO  CMALM ( 1)  tCSMLMI  H  ALL  SINCE  TMALM(  I  )  *AOD  1*0 
IF(K)  EQ(1)»  GO  TO  100 
IF  (J1  GR  (MXMLMl n ) *LET  MXMLM( U  »  J 
IF(J)  GR  (MAXLMd)).  LET  MAXLMlh  *  J 
100  RETURN 
END 


SUBROUTINE  f-CRDW(  I » J »T  5 
LET  SOW  *  NWIP(  n**2 
LET  TIME  «  T 

ACC  NWIPd)*  SOW  INTO  CNWIPd  )  tCSWIPd )  ALL  SINCE  TNWlPd)»ADD 
Cl.O 

IF  (J)  GR  (MXWIP( I) ) »LET  MXWIP(I)  =  J 

RETURN 

END 


REPORT  INTRl 

SYSTEM  STAT 

NUMBER  OF  LATE  SORTIES 

TRAIN.  GND. alert  AIR  ALERT  TOTAL  PER-CENT  OF  SORTIES  LATE 
#  ♦  *  ♦.  »,** 

NUMLSd)  NUMLS(2)  NUMLSO)  NUML  LTPSE 

CANCELLATIONS 

TRAIN.  GNO. ALERT  AIR  ALERT  TOTAL  PER-CENT  OF  SORTIES  CANCELLED 

«  «  « 

NMSSD(l)  NMSSD(2)  NMSSDO)  NMISS  NMSPS 

CANABALIZ.AT  ION  SUMMARY 
TOTAL  PER-CENT  OF  SORTIES 

#  *,** 

GCANB  CANPS 

SORTIE  COUNT  BY  TYPE  OF  SORTIE 
training  GND.  ALERT  AIR  ALERT  TOTAL 
#  #  ♦  * 

NTSRT(l)  NTSRT(2)  NTSRTO)  GNSRT 

TURN  -  AROUN 

TOUCHDOWN  TO  COMPLETION  OF  ALL  MAINTENANCE 
A/C  NO.  OF  AVERAGE  MAXIMUM  MINIMUM  STD. 

TURNAROUNDS  TIME  TIME  TIME  DEVIATION 


XXX  X  xxxxx 


A 

X 

t 

i 

X 

X 


»•*« 


#.### 


B-52  * 

NTURN(1*1)  DECHR(AVTAA(1) )  DECHR { MAXTA ( 1 ) )  DECHR< MINTA ( 1 ) 5 
DECHRfMINTXd) )  DECHR  {  SDTRX  ( 1 )  ) 

XC-135  ♦ 

NTURN(2tl)  0ECHR(AVTAA!2) ) 

DECHR(MINTX(2) )  0£CMR( SDTRX (2  I ) 

NUMBER  OF  MALFUNCTIONS  COMPLETED  IN 
PREFLIGHT  MALFNS 


DECHR! MAXTA (2) )  DECHR! MI NTA ( 2 ) ) 


NRUSH!1) 


LESS  than  SPECIFIED  TIME 
POSTFcIGHT  MALFNS 

# 

NRUSH!2) 

SHOP  UT I  LIZA. ION 


X 

X 


X 

X 

I 

X 

X 

X 

J 

X 

X 

X 


WEEKDAY 
1  2 


- manhours 

SHIFTS 

3 


USED - 

WEEKEND 
1  2 


SHIFTS 


WE 


SHOP 

* 


AVG. 


>  •  D  • 

,### 


M  HUSEO!M.l)  HUSEDIM.2)  HUSEO!M*3)  HUSED(M.4)  HUSED(M*5)  HUSEDIM.6 


SDUTZ(M*3)  UTIL2!M#4) 
FOR  EACH  SHOP  M 


SDUTZ!M*4)  UTILZ(M»5)  SDUTZ!M>5)  UTILZ!M»6) 


GRD 

GHL'SE!!) 


*,*  #,# 

GHUSE(2)  GHUSEOI  6HUSE(4)  GHUSE(5) 
NUMBER  OF  AIPCRAFT  WITH  WEAPONS 


GHLSEI6)  GUTILIl) 


FOR 


AVERAGE 

MEACW 

TAIL  NO. 

* 

TALNO(K) 
EACH  K  OF  MSOS 
END 


STD.  DEV. 


*•*« 


SDACW 
CANCELLED 
TYPE  OF 


MAXIMUM 

* 

MXACW 
SORTIES 
SORTIE 

TYPE‘K) 


TIME 


SORTIE 
TMEIK) 


OF 


ISTICS 


TRAIN. 

«,  «• 

LATEHd  I 


GND. ALERT 
LATEH!2) 


LATE  TAKE-OFF  HOURS 

AIR  ALERT  TOTAL  AVG. HOURS  LATE  PER  SORTIE 


LTHPS 

OF  AVAILABLE  HOURS 
OVPTH 


NUMBER  OF 

« 

NA 

total  NUMBER  OF 
BENCH  REPAIRS 

* 

NBNCH 

D  DATA  !HOURS) 

TOUCHDOWN  TO  COMPLETION 


«,*«  *•«» 

LATEHI3)  LTTHR 

OVERTIME  SUMMARY 
TOTAL  HOURS  PER-CENT 

«•*» 

GOVTM 

overall  fill-rate 

demands  NUMBER  OF  FILLS 

« 

NFL 

STOPPING  POSTFlT.MAINT.TO  START  NEW 
ATTEMPTS  SUCCESSES 

«  « 

LTPA  LTPS 


fill-rate 

*,«« 

ofilr 


SORTIE 


2* 

1 

2 


1 

•> 


1 

2 


OF  ALL  RED-X  MAINTENANCE 
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A/C  NO.  OF  average  MAXIMUM  MINIMUM  STD. 

TURNAROUNDS  TIME  TIME  TIME  DEVIATION 

B-52  *  ♦,##  »,*»  *,**  #,**» 

DECHRISDTRAlin  NTUPN{1»2)  DECHR ( AVTAXC 1 ) J  DECHR(MAXTX( 1 ) I 

ICC“135  *  *,**  #*»#  *,##  *,### 

DECHR(SDTRA{2) )  NTURN(2»2)  DECHR ( AVTAXI 2 ) I  DECHR ( MAXTX ( 2 ) ) 

operational  ready  RATE  (PER-CENT) 

B~52  KC-135 

#,** 

BORR  KCORR 

overall  PER-CENT  *  *.«* 

6RN0U 

+  SHIFT  UTILIZATION  (FRACTION) -  - 

EKDAY  SHIFTS  WEEKEND  SHIFTS 

2  3  12  3 

AVG.  S.D.  AVG.  S.O.  AVG.  S.D.  AVG.  S.D.  AVG.  S.D. 

#,*♦  *,#»  *,»*♦  #,#*  *,#»#  #,#♦  *,*#♦  ♦,*»  »•««# 
)  UTILZ(M»1)  SOUTZ(M#l)  UTILZ(M»2)  SDUTZ(M.2)  UTILZ(M*3) 
SDUTZ(M»6) 


♦,#»  »,#♦  #,*# 

GUTILIZ)  GUTIl(3)  GUTILCA)  GUTIL(5)  GUTIL(6) 


«•** 


END 


1 

1 


X 


1 

2 


2* 


1 


1 


X 

1 

2 

* 

1 

2 

X 

2* 

X 

X 

X 

X 


C 


X 

X 

X 


X 

X 

X 


X 

X 

X 


REPORT  INTER 


INTERIM  REPORT  - 


SHOP  ST 

SHOP  MALFUNCTIONS  WAITING  REPARABLES  WAITING  OVERTIME 
NO.  AVG.  STD. DEV.  MAX  AvG.  STD.OEV.  MAX  REG.  EXTRA 

«*  *»,«#  »»«,««  »•  »*«»«  »*»,»«  «  «*•,»  »*»«• 

M  MEMLM(M)  SOMLM(M)  MXMLMJM)  HEREP(M)  SDREP(M)  MXREP(M)  OVTMH(M) 
MANPS(M) 

FOR  EACH  SHOP  M 


*•«#«  « 


X 

X 


GRAND 


ft  ftftft^ft  ftftftaft 
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X 

X 

X 

X 


X 

X 

X 

X 


TAIL 

NO* 

«« 

I 


GMMLM 

NUH8£R  OF 
SORTIES 

•* 


GSMLM  GXMLM  6MREP  GSREP  GXREP  60V7M 


AIRCRAFT 


NO. OF  MAINT.MALFNS 
AVG.  STD.OEV* 


NO. OF  MAN  MALFNS. 
AVG.  STOoOEV. 

*,««  *•*« 


NO. OF 
AVG. 

«•«* 


NSORTin  MEMEMUI  SDMEMI  I) 
FOR  EACH  AC  I 

GRAND  »  *•** 

GSORT  6MMEM  GSMEM 


MEMNMd)  SDMNMCn  MEPTMi 


#.#* 

GMMr4M 


G.A.MAINT. 
RX  NO  RX 


TAIL  IN  MAIN?.  FLY-  GND. 

NO*  RX  NO  RX  ING  ALERT 

#  #,*♦  ♦,«»  »,## 

X  I  DECHR(CLAS( 1*1))  OECHR ( CLAS ( 1 *2  ))  DECHR(CLAS(I 
X  11.9))  DECHR(CLAS( I.IO) )  DECHR i CLAS ( I . 1 1 ) )  DECHR 
X  FOR  EACH  AC  I 


*•*« 

GSMNM 

A1 

STAND 

-ING 

.4))  0ECHR( 
(CLAS>,  1.14) 


TOT* 


»•** 


««*« 


*,## 


*.«« 


CLSSIII  CLSS<2)  CLSS(4)  CLSSf6)  CLSS(8)  ISSI? 
0/0  #,**  #*## 

PLSS(l)  PLSS(2)  PLSSCA)  PLSS(6)  PLSS18)  PLSS(7 

END 


«•** 

CLSS(5» 

*««* 

PLSS(5) 


«,## 

GMPTM 
RCRAFT 
AWAIT 
SORTIE 
«•«« 
CLASd. 
)  DECHR 

« •«* 

CLSS(9 

*,#* 

PLSS(9 


DAY  ♦  HOUR  * 

OPART(YIME)  HPART(TIME) 

ATISTICS 

NO*  OF  MEN  NO*  OF  MINIMUM  NO.OF  MALFNS-IN-PROCESS  MANHOURS 
SUBSTITUTED  PRE-EMPTS  MEN  AVAILABLE  AVG.  STD.DEV*  PER  SORTIE 
**#  ♦  *  #,#» 

OECHR(EXHRS(M)  )  TSUB(M)  NPREE(M)  MNMEMM)  MEWIP(MI  SDWIP(M) 


13 

2 

1 

1 


X 

X 


♦  #  #  *•«*»  *,♦» 

OECHR(GEXHR)  GTSUB  6NPRE  MAXME  GMWIP  GSWIP  GMNPS 
ATISTICS 
PART  MALFMS 
STD.DcV. 

«•** 

I)  SDPTMd) 


«•*# 


6SPTM 

STATUS  (HOURS) 

PRE-  POST-  SERVICE  UP-  DOWN  TOTAL 

FLIGHT  FLIGHT  LOAD  LOAD 


6))  DECHR(CLASd .8) )  DECHR ( CLAS (I .7 ) )  DECHR ( CLAS ( I » 5 ) ) 
(CLASd. 12))  DECHRlCLAS*  I  .13  )  j  3ECHR(  ATCTLd  )  )  AVAIL 


AVAIL¬ 

ABLE 

•  *## 

OECHR(CLAS 


««*•  *•**  *•«*  »,«•  »,«« 

)  CLSS(IO)  CLSSdl)  CLSSdA)  CLSS(12)  CLSS(13)  CATOT  TAVAL 

)  PLSS(IU)  PLSS(ll)  PLSSdA)  PLSS(12)  PlSS(13) 

END 


1* 

I 

1 


1« 

1 

1 


C 


X 

X 


c 


X 

X 


X 

X 

X 

X 

X 

X 

X 

X 
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SUBROUTINE  LTPRE( I t J*G»T ) 
let  time  •  T 

let  LTPA  •  LTPA  ♦  I 

if  (6)  EQ  (l«)t  60  TO  100 
LET  LTPS  »  LTPS  ♦  1 

ACC  1*0  INTO  CLASdtCLSUn  SINCE  TCLASII) 

let  CLSd)  •  J 

IF  (ATURNd))  EQ(0)»  60  TO  lOO 
let  TA  ■  TIME  -  ATURNI I ) 

LET  KK  •  1 

IF  d!  6E  (NOWEP)*  LET  KK  •  2 
LET  X  *  TA 
l  PUNCH  l»  X»  KK 
[  1  format  {F6.2tI7A) 

let  NTURNtXK.il  ■  NTURN(RK#1)  ♦  1 
let  CTRNACXX)  *  CTRNA(KK)>»*  TA 

lei  CSTRA(KX)  *  CSTRAIXO  >  TA**2 

IF  (TA)  GR  (MAXTA(KK))*  LET  MAXTAdCK)  *  TA 

IF  (TA)  LS  (MINTA(KK))»  LET  MlNTA(XX)  «  TA 

let  ATURN( I)  ■  0,0 
IOC  RETURN 
END 


MAIN  ROUTINE 
DIMENSION  X(1002) *0(1) 

<  EQUIVALENCE{X*J) 

REWIND  10 

K  95  READ  TAPE  lOt  ( X ( I ) • I ■ 1 . 1002 ) 

LET  N*1 

99  let  I  '  J*N) 

let  time  *  XiN^5) 

IF  (TIME-LAST)  GE  (RlNT)t  CALL  ANLY2 

let  a  -  X(N>1) 

let  B  »  X(N+2) 

let  C  »  X(N^3) 

let  0  *  X(Nv4) 

X  60  TO(lt2»3*A»5»6*7i0»9tlv.«il»l2»i3»I4*15*16*l7*lS*l9*2O*2l*22*23» 

X  C24.25»26*27»28.29f 30f31 i32»33.3A.35.36t37t38.39) »I 
X  1  CALL  CREPT(A.BtC»0»TIME) 

X  GO  TO  500 

X  2  CALL  RCROM(A»b»CvD»TlME) 

X  GO  TO  500 

X  3  CALL  MTCEliA.BtCtO.TlME) 

X  GO  TO  500 


X>cX>t><  XXXXX  xxxxxxxxxx 
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X 

4 

CALL  MTCE2(A.BfC»D*TIME) 

X 

30 

w 

r\ 

GO  TO  500 

X 

X 

5 

CALL  MTNl C AfB»C»TlME) 

X 

31 

X 

GO  TO  500 

X 

X 

6 

CALL  MTN2( A.B»C»D»T IME ) 

X 

3  2 

X 

GO  TO  500 

X 

X 

7 

CALL  EXTRA(A»B) 

X 

33 

X 

GO  TO  500 

X 

8 

CALL  CANCL( A*B*C*TIME ) 

X 

34 

X 

GO  TO  500 

X 

X 

9 

CALL  CLASS(Aia»C*TIME) 

X 

35 

X 

GO  TO  3CC 

X 

X 

10 

CALL  RUSH( A.b.TIME ) 

X 

35 

X 

GO  TO  SCO 

X 

X 

11 

call  CL^1TC(A.d»C»D,TIYE; 

x 

37 

X 

GO  TO  500 

X 

X 

12 

CALL  DOPRE(A«b»C»TIME) 

X 

39 

X 

GO  TO  500 

5  0  0 

X 

13 

CALL  FCRDM{A»B»C.TIME5 

X 

GO  TO  5CC 

X 

14 

CALL  FCRDWt A»B,TIMt ) 

38 

X  GO  TC  'jC;; 

X  15  CALL  P01AY(A»B) 
X  GO  TO  500 


16 

CALL  PCSFl ( A»b,C»J»T iMc 5 

GO  TO  SuO 

X 

17 

CALL  PREFl(A,o) 

GO  TO  5c: 

X  200 

18 

CALL  PREF3 < A*&»C.TlyE) 

GO  TC  5.0 

1  0  >j 

19 

CALL  PTREPt A,3,C»0tTlM0) 

GO  TC  5CC 

2v/ 

call  RCRDW(A.e;,nMt) 

GO  TO  5>;C 

21 

CALL  REPARiA.j.C^llMEl 

GO  TO  600 

2? 

CALL  US'.MN  (  A  ,b  tC.  .0«  r  IKE  ) 

Cu.  TO  5.0 

23 

C A i, L  5 CRT  1.  ?  •'  *  C  *0*71  ‘-tl  j 

GO  TC  500 

?4 

CALL  PRLFT  (  A  *1'  ,  UMt:  ) 

GC  TO  5.,0 

2  5 

call  SOPO"  I  (  A*!‘ ,  T  iwr  ) 

CC  TO  6" 

26 

CALL  SPOFl.  !  *  ’  P'r  } 

no  TC  5..; 

2  7 

CALL  GTATlSAi't) 

GO  TC  5C0 

28 

CALL  ;.TRT0 

GO  Ti,.  •;  V, 

1 

29 

Call  L  !  t  A'^  i  a  .  f  »C  I  T  1  ml  ! 

00  TO  C ■ : 

‘ '  ' 
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30  CALL  STNXSCA.BfTIMc) 

GO  TO  500 

31  CALL  3HFT1 (AtTlME) 

GO  TO  500 

32  CALL  TERM(A.BfC*D.TlM£) 

GO  TO  500 

33  CALL  5TOMT(A»D»TIi^E) 

GO  TO  500 

34  CALL  U3EP2< A»B»C tD.T IME ) 

GO  TO  5C0 

35  CALL  WTSOR(A*3.C»D»TiyE) 

GO  TO  500 

36  CAL.  iHFT2(A»B.TIME) 

GO  TO  500 

37  CALL  LTPRE{A»3»C,TI.v1E) 

GO  TO  500 

39  CALL  0VTM(A*SJ 

00  let  N+6 

IF  IN)  GR  00  TO  95 

GO  TO  99 

36  CALL  C0RE(<XX.KXX(ICCRE  5  ) 

IF  (CHNGEI  £0(0)  t  GO  TO  io;.i 
BACKSPACE  TAPE  13^  1  RECCPD 
READ  FROM  tape  13«I 
FORMAT! 13  ) 

IF  (1)  EQ  ( 777)  ♦  GO  TO  100 
PRINT  200 

00  format (///42H  manning  tape  not  positioned  at  end  CF 

REWIND  TAPE  K* 

CALL  exit 
END 


...  ti  w  ■-  t  L’it.  I  t  I  »  j  *  >“ . »  L  »  T  i 

!  r  r  li  N'E  *  T 
It  J  3-*^  ^  NV^tNA  !  1  )  **2 

4  OM  INTu  r  't.NAi  n  »C  N?  •  )  3L4  SINCE  T  ME  NA  i  |  )  •  POS  T 

:  F  L  0  A  T  ^  <  .J  ) 

iFtJ)  Lj  < \  (  I  5!  »l  r  ^  MNM'Nt!)  -  J- 
I  F  f  L  5  ^  I  V  1  •  .0  T  'F  I  0 

,  I  T  \  P  p  f  f  !  N  P  K  f  ■  M  I  ?  •»  1 

■  j’‘J  i  0  V  '  '  v> 

1  :  ;  1  ,;i'  !  I  ..  Thj-!  i  ;  ♦  X 
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C 

SUrROUTINE  MTCE2J 1  . J*ICtL*T) 

A  IF  (SENSE  light  1)20.10 

10  let  TIME  =  T 
le:  II  =  I 

LET  SOMEM  =  N0MEM(I)»*2 

let  SOMN.V  s  M0KNM(I)**2 

let  SaPTM  =  N0PTM(l)**2 

ACC  NOMEMli;.  SQMEM  INTO  CN^IEMI ! ) .CSMEMIIl  ALL  SINCE  TNMEM { I } t POST 
C  FLOATF(J) 

ACC  NOMNMC  M  .  .SOMNM  jKTO  CNMNMI  I  )  *CSMNM(  I  )  ALL  SINCE  TNMNM(  I  )  .POST 
C  FLOATFfO 

ACC  NOPTM'Ilt  S0PTM4NTG  CNPTM(  I  )  .CSPTMi  i  )  ALL  SINCE  TNPTMiH»P03T 
C  FLOATriUi 
X  -SENSE  LIGHT  i 

GO  TO  lOG  - 

20  IF  (SENSE  LIGHT  2)30.2S 
.'2S  IF  (J)  EO-(l:.LET  NCANB(I)  .**  NCANbii)  +  1 
let  SCjMLP  s  i4F.AL?  {  I  ;  **2 

ACC  NkALPd)''  SOMLP  INTO  C.NMLP  (  I  )  .CSMLP  (  i  J  ALL  SINCE  TNMLP  {  I  )  .POST 

C  ELOATFILi 

IF  (1.)  GR  (MXMLPI  n  )  .LET  MXMLPCIV  =  L 
X  SENSE  LIGHT  1 

X  SENSE  LIGHT  2 

GO  TO  IOC 

.  30  IF  (<T  LE  r2)»GO  TO  ICO 

ACC  1*0  INTO  CLAS( I  I .CLS( 11 ) )  SINCE  TCLAS ( M ) 

GO  T0( ICC. 100.50,30.50.35. 35) »X 
,  aV  IF  (L)  EQ  (O  ,60  to  40 
let  CLS{ M )  *  6 
60  TO  100 

4C  let  CLSlin  ^7 
GO  TO  100 

5C  let  CLSdU  =  K  +  9 
100  RETURN 
LNO 


C 

SUBROUTINE  MTNl ( I , J , T ) 

LET  TIME  *  t 

LET  SQMEN  •  NMENA(I)*«2 

ACC  NMENAin,  SQMEN  INTO  CMcNAI  I  )  »CSMtN(  I  )  ALL  SINCE  TMENA {  I  )  .POST 
C  FLOATFIJ) 
flcTURN 
END 


C 
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subroutine  .MTN2U  .  J»<.L»T  ) 

IF  (SENSr  LIGmT  1)20. 1C 
iU  let  time  =  T 
LET  il  =1 

LET  SCiM.NM  =  NLvnm(I)«*2 

l:t  somem  =  •i:.v£ I  )**2 
LET  S-PT.M  =  N0PTM(Ii*»2 

ACC  N0MN..*JI),  S3MNM  INTO  CNMNM(  I  )  >CSMNM.(  I  ) 
C  KLOATFU) 

ACC  NOMEMfl].  SQMEm,  INTO  CNMEMU  )  »CSME  V  {  I  ' 
C  FLOATFIO 

ACC  NOPTH(I5.  SQPTm  INTO  CNkTMI ! ) ,CSP1 M( 1) 

c  floatfcl; 

SENSE  light  1 


ALL  SINCE  TNMNMt I J .POST 
ALL  SINCE  TNMEMil I .POST 
ALL  SINCE  TNPTMin.POSI 


GC  TO  IOC 

20  ACC  i.o  INTO  Clash  i  .CLsn  I ) )  since  tclashI} 
IF  ( I )  GR  J  3 ) ♦  GO  TC  30 
IF  iK)  EG  I S) ♦  GO  TO  40 
IF  { J)  EG  ( w) ,GO  TO  27 
LET  CLSI I  I)  =  1 
GO  TO  100 

27  LET  CLS(  I  2 

IFI.O  NEi'Dv  GO  TO  100 

26  IF  iJI  NE(0)  .  GO  TO  ICO 

iFIXTURNI I  I ) )  EG{0).  GO  TO  iOO 
LET  TX  =  TIME  ~  XTuRNI 1 1  ) 

LET  KK  =  1 

IF  (II)  GE  INOWEP) .  LET  <K  =  2 

LET  NTURN(iCK»2)  =  NTURN(KK»2)  +  i 

LET  CTRNX{<K5  *  CTRNX(KX)+  TX 

LET  CSTRX(ICK)  =  C5TRX(K»C}  +  TX*»2 

IF  (TX)  GR  (MAXTXJKK)).  LET  MAXTX(K!C)  *  TX 

IF  (TX)  IS  (MINTXiXK)?,  LET  MINTX(KK)  =  TX 

LET  XTURNdl)  =  0. 

GO  TO  100 

30  let  CLS( 1 1)  =  I 

IF  (K)  NE  ( II .  GO  TO  100 
IFtL)  EG(0) f  GO  TO  100 
GO  TO  28 

40  IF  ( J)  EQ  (O  .  GO  TO  45 
LET  CL5(  I  I  I  6 
GO  TO  100 

45  let  CLS( I  I >  =  7 

100  RETURN 


END 


SUBROUTINE  CVTMC.A) 

let  OVTMH(I)  »  OVTMH(I)  sA 

RETURN 

END 


SUBROUTINE  PDLAY(I.J» 

IF  (1)  EO  tO) tGG  TO  100 
LEY  NASKStl)  =  NASKS(I)  +  1 
IP  tJ)  EQ  tOl.LET  NFiLSm  =  NFlLS(I)  +  1 
ibc  RETURN 
£ND 


subroutine  ROSFLI  1 1 J*IC«L*T) 
let  time  «  7 

IF  ( JI  EQ  (0} *GO  TO  30 

ACC  1*0  INTO  CLASdfCLSmi  SINCE  TCLASd) 
IF  (K)  EQ  ?0>*  LET  CLSd)  =  2 
IF  (!d  EQ  (0;  »  GO  TO  AG¬ 
LET  CLSd}  =  I 
GO  TO  100 
30  let  KX.  =  1 

IF  d)  GE  iNCwEP)*  LET  KK  =  2 
IFIATURNd))  EG{-0)j  GO  TO  i  OG 
let  TA  =  TIME  -  ATURNd) 

let  X  =  TA 
PUNCH  1*  X»  « 
i  FORMAT  {F6.2»I74) 

LET  NTURNIXKd)  =  NTURN{«*1}  +  1 
let  CTRNAIXK.)  =  CTRNAIKK)  +  TA 
let  CSTRAIKK)  =  CSTRA(<i<;)  +  TA**? 

IF  (TA)  GR  (MAXTA{KK.)  >  t  LET  MAXTA(KX)  =  TA 

IF  (TA)  LS  ( MINTA(KK)  )  ,  LET  MiNTAdCK)  =  TA 

LET  ATURN(I)  =  C, 

AG  IF(X,TURNd)>  EQ(0).  GO  TO  100 
LET  TX  =  TIME  -  XTURN( I ) 

LET  =  1 

IF  d)  GE  (N0WEP}»  LET  KK  -  2 

LET  NTURN(KX»2)  *  NTURN(KK»2)  +  1 

let  CTRNXCKO  =  CTRNX(KK)+  TX 

let  CSTRX(ICIC)  =  CSTRX(KK)  +  TX**2 

IF  (TX)  GR  (MAXTX(KK)).  LET  MAXTXIKO  =  TX 

IF  (TX)  LS  (MINTX(KK))»  LET  MINTX(XK)  =  TX 

let  XTURNf  n  =  0. 

ICO  RETURN 
END 


SUBROUTINE  PREFl  (!♦>:) 

IF  ( i )  EQ  ( 0 ; .GO  TO  ICO 
let  NASKS(  I )  =  NASKS{ I  )  +  1 
IF  (J)  EQ  (u).L£T  NFIL3(I)  *  NFlLS(l)  1 
ICC  RETURN 
END 
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SUBROUTINE  PREF2 { I . J#K*T ) 

IF  IJ)  NE  (vj)  *GO  TO  100 
LET  TIME  »  T 

ACC  1*0  INTO  ClAS( I »CLS( 1 1)  SINCE  TCLASIH 

LET  CLSir;  =  9 

RETURN 

END 


SUBROUTINE.  PR£FT( I 

let  time  =  T 

ACC  1*0  INTO  Clash »CL5( in  SINCE  tclasiu 
let  cls( n  -  j 

RETURN 

END 


SUBROUTINE  PTREH ( I  tUciC cL  tT ) 

let  TIME  =  T 

let  SQMEN  s  NMENA(I)**2 

ACC  NMENAin*  SQMEN  INTO  CMENA  ( I  )  <CSMEN(  I )  ALL  SINCE  TMENA(n*POST 

C  FLOATFiJ; 
let  NBNCH  *  N9NCH  -*“1 
00  RETURN 
END 


subroutine  RCRDM( X »J*<»LvT) 
let. TIME  *  I 
let  SQMLM  a  NMALM(in*2 
LET  5UMNM  =  N0MNMC<)**2 

ACC  NMAuMI  1  )  ♦SQMLM  INTO  CMALM  (  1)  vCSMLM  i  I)  ALL  SINCE  TMALMUiiAOO 

^ACC^  NOMNM<K)  tSaWNM  INTO  CNMNMIK.)  *CSMNM(K )  ALL  SINCE  TNMNMI  K,I  *POST 
C  FLOATF(L) 
ou  return 
END 


I 
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SUBROUTINE  RCRDW  (I»J*T) 

LET  TIME  »  T 

let  SQWIP  *  NWIPU)  **2 

ACC  NWIPI I) .SOWiP  INTO  CNWI P{ I ) *CSW1 P( I .  ALL  SINCE  TNWlP(I)tAOD 
C-1.0 
RETURN 
ENQ 


SUBROUTINE  REPAR( I .J*<*T ) 

IP  (K)  NE  (0) .  GO  TO  100 

LET  TIME  «  T 

let  SOREP  *  NQREP(I)**2 

ACC  NOREPt I ) »SOREP  INTO  CQREP ( I) .CSPEP ( 1)  ALL  SINCE  TOREP ( I ) .POST 
C  FLOATFIJ) 

IF  (J)  GR  (.MXREPd))*  LET  MXREPd)  =  J 
100  RETURN 
END 


SUBROUTINE  RUSHd.R.T) 

let  NRUSHd+1)  =  NRUSHd  +  1)  1 

RETURN 

END 


subroutine  SHFTld.T) 
DIMENSION  MEN(24) 

LET  TIME  *  T 

let  N  =  XMODF (OPART (TIME) .7) 
IF  (N)  EO  (FSAT) .  GO  TO  1 

IF  (N)  EQ  (FSUN) »  GO  TO  2 

IF  (N)  EQ  (0) ,  GO  TO  3 

IF  d )  EO  ( 3) .  GO  TO  4 

54  let  not  *  opart (TIME) 

LET  K  «  I  +  1 
GO  TO  5 

4  let  not  *  DPART(TIME)  -  1 
LET  K  »  1 
60  TO  5 

1  IF  (I )  NE  (3) .  GO  TO  2 

52  LET  NDT  *  DPART(TIME)  -  1 
LET  <  =  4 
GO  TO  5 

2  IF  (I )  EQ  ( 3 )  .  GO  TO  51 
let  NDT  *  DPARTITIME) 
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LET  I  =  I  +  3 
LET  K  =  I  +  1 
GO  TO  5 

51  LET  I  =  I  +  3 
GO  TO  52 

3  IF  ( I )  EQ  (0) ,  GO  TO  56 
IF  ( I )  NE  (3 ) »  GO  TO  54 
LET  I  =  6 
LET  1 
GO  TO  5 
56  let  K  =  1 
GO  TO  20 

5  LET  NSHFT(I)  =  NSHFT(I)  +  1 
DO  TO  10,  FOR  EACH  SHOP  M 
LET  SQMEN  =  N.MENA{M)»*2 

ACC  NMENAIMJ fSQMEN  INTO  CMENA ( M ) ,CSMEN ( M )  ALL  SINCE  TMENA(M) 

LET  MEMENIM)  =  CMENA(M)*3.0 

LET  SDMEN(M)  =  3. 0* ( CSMEN ( M ) )  -  MEMEN(M)*>2 

IF(SOMEN(M))  L5(0).  GO  TO  40 
LET  SDMENIM)  =  5QRTF ( SOMEN ( M )  ) 

IF (NMASHIM, I ) )  NE(0),  GO  TO  8 
LET  UT!L(M)  =  0. 

GO  TO  10 

a  LET  UTILIM)  =  1.0  -  MEMEN{M)/FLOATF{NMASH(M,I ) ) 

LET  HUSEDIMfl)  =  8.0*< FLOATF( NMASHIM, 1) )-MEMEN(M) )  +  HUSEDIM,!) 
IF  (CHNGE)  tQ  (0) ,  GO  TO  9 

LET  CUTIL(M»I)  =  CUTIL(M,I)  +  8.0* ( FlOATF ( NMASH ( M , 1) ) ) 

GO  TO  1C 

9  let  C'JTIL(M,I)  =  CUTlL(M,n  +  UTIL(M) 

LET  CSUTL(M»I)  =  CSUTL(M»I)  +  UTIL(M)»*2 
GO  TO  1C 

40  IF  (SDMEN(M))  LS  (.OOJOOl),  GO  TO  50 
CALL  CORE(KXX,KXX{32000)  ) 

CALL  EXIT 

5o  LET  SDMEN(M)  =  O.O 
GO  TO  6 
10  LOOP 

20  IF  (CHNGE)  EO  '0),  GO  TO  23C 

READ  FROM  TAPE  13f  MEN(J),  FOR  J  =  ( 1 ) ( 24 ) 

FORMAT  24(13) 

IF  (MEN(l))  EO  (999),  GO  TO  230 

IF  (MEN( 1 ) )  EQ  (777) ,  RETURN 

LET  NMASH(J,IC)  =  iViEN(J),  FOR  J  (1)(24) 

DO  TO  220,  FOR  L  =  ( 25 ) ( NSHOP-24 ) ( 24) 

READ  FROM  TAPE  13,  NMASH(M,<),  FOR  M  =  ( L ) ( XM I NOF ( L42 3  ,  NSHOP )  ) 
FORMAT  24(13) 

220  LOOP 

230  DO  TO  30,  FOR  EACH  SHOP  M 
LET  CMENA(M)  =  0. 

LET  CSMCN(M)  =■-  0. 
let  MAXLM(M)  =  0 

LET  NMENA(M)  =  FlOATF ( NMASH (M  ,K )  ) 

30  LOOP 
100  RETURN 
END 
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SUBROUTINE  SHFT2(I#J*7l 

LET  TIME  *  T 

LET  SQMEM  *  NMENA(n**2 

ACC  NMENAU  )  .SQMEN  INTO  CMENA(  1 )  *CSMEN(  1)  ALL  SINCE  TMENAd)*  POST 
C  FLOATFU) 

IF(J)  LS(MNMEN(  I )  )  •  LET  MNMENdJ  *  J 
100  RETURN 
END 


C 


10 


20 

100 


SUBROUTINE 

let  time  ■ 

let  NSORTd) 
let  NTSRT(L) 
IF  (K)  EQ  (5) 
IF  (L)  EQ  (2} 
LET  ATURN( I ) 
let  XTURN( I J 
GO  TO  100 
let  ATURNI I ) 
let  XTURNd) 
60  TO  100 
ACC  1.0  INTO 
LET  CLSd)  • 
RETURN 
END 


SORTEd  *X*L*T) 

r 

*  NSORT( I ) 

«  NTSRT(L)  +1 
.  GO  TO  20 
.GO  TO  10 

*  TIME 
«  TIME 


«  0*0 
■  0*0 

CLASd  tCLSI  I )  ) 
5 


SINCE  TCLASd) 


SUBROUTINE  SORTKI.JtT) 

let  NMSSD(J-*'2)  »  NMSS0(J<-2)  +  1 

CREATE  MSDSE 

let  TALNOIMSDSE)  *  I 

let  TYPE(MSDSE)  »  j  ♦  2 

let  TME(MSDSE)  »  T 

FILE  MSDSE  IN  MSDS 

RETURN 

END  C 


SUBROUTINE  SPOFl  d.T) 

LET  TIME  ■  T 

ACC  1.0  INTO  LLASd»CLSd)J  SINCE  TCLASd) 

LET  CLSd  )  «  11 

RETURN 

END 


X  X 


X  X 
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SUBRCUTINt  iTFAM(  I  «J»IC#T) 

LET  TiMF*  T 

LE'»‘  SOAt'.W  •  NACWW**2 

ACC  NACWW,  SQACW  INTO  CNACW*  CSACW  ALL  SINCE  TNACW*  POST  FLOATF(K) 

IF  iK)  GR  (MXACW)*  LET  MXACW  -  K 

RETURN 

END 


SUBROUTINE  STNXS(I»JtT) 

LET  TIME  *  T 
LET  KK  *  1 

IF  (I)  GE  {NOWEPit  LET  KK  *  2 
IF  (ATURNID)  EQ  (O)tGO  TO  10 
let  TA  *  TIME  -  ATURN( I J 

LET  X  «  TA 
PUNCH  1.  X.  XX 
1  FORMAT  (F6. 2*174) 

let  NTURN(XX»1)  *  NTURN(XX»1)  +  1 
let  CTRNA(KX)  =  CTRNA(XK)+  TA 

let  CSTRA(KX)  s  CSTRA(XK)  4  TA**2 

IF  (TA)  GR  (MAXTA(KK)).  LET  MAXTA(XX)  *  TA 
IF  (TA)  LS  tMlNTA(XX))*  LET  MINTA(XX)  *  TA 
LET  ATURN( I )  *  0.0 
IF  (XTURN( I )  )  EQ  (0) .  GO  TO  10 
LET  TX  *  TIME  -  XTURN( I  ) 
let  NTURN(XX»2)  =  NTURM(XK»2)  1 
LET  CTRNX(XX)  =  CTRNX(KK)  4  TX 
LET  CSTRX(KK)  *  CSTRX(KX)  4  TX**2 
IF(TX)  GR  (MAXTX(XX))f  LET  MAXTX(XX)  »  TX 
IF  (TX)  LS  (MINTX(XX))*  LET  MINTX(XX)  »  TX 
LET  XTURN( I )  =0.0 
10  IF(J)  NE(5) .  60  TO  100 

ACC  1.0  INTO  CLAS( I .CLS( I) )  SINCE  TClASII) 
LET  CLS( I )  =  5 
100  RETURN 
END 


SUBROUTINE  STOMT(I.J*T) 

LET  TIME  *  T 

IF  ( J)  EQ  (999)  ,  GO  TO  10 
LET  SQ  »  NMALP( I )»*2 

ACC  NMALP(I)»  SQ  INTO  CNMLP(I).  CSMLPd)  ALL  SINCE  TNMLP(I).  ADD 
C-1.0 
GO  TO  100 

10  LET  SQMEM  *  NOMEM{I)**2 

LET  SQMNM  »  N0MNM(I)**2 

LET  SQPTM  »  NOPTMt I  )**2 

ACC  NOMEM(I)*  SQMEM  INTO  CNMEMd).  CSMEM(I)  ALL  SINCE  TNMEM(I) 
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ACC  NOMNM(  n  tSQMNM  INTO  CNMNM  (  I )  #  CSMNM  (  1)  ALL  SINCE  TNMNMd) 
ACC  NOPTMI I ) *SQPTM  INTO  CNPTM ( 1) » CSPTM ( 1}  ALL  SINCE  TNPTM(I) 
LET  NOMEM ( 1)  «  0. 

LET  NOMNMI I )  *  0. 

LET  NOPTMI I )  «  0. 

100  RETURN 
END 


C 


SUBROUTINE  STRTKI.J) 

LET  FSAT  *  I 

LET  FSUN  *XMODF( 1+1*7) 

RETURN 

END 


C 

SUBROUTINE  STRT2 ( I . J*K .L ) 

X  IFISENSE  light  1)20*10 

10  let  NMASHILfl)  *  I 

LET  NMASH(L*2)  «  J 

let  NMASH(L*3)  »  K 

X  SENSE  LIGHT  1 

GO  TO  100 

20  let  NMASH(L*4)  =  I 

LET  NMASH(L#5)  *  J 

let  NMASHILtS)  *  K 

IF  (L)  LS  (NSHOP)»GO  TO  lOO 
DO  TO  30*FOR  I  *  (1)16) 

COMPUTE  NMHPSU)*  SUM  OF  NMASHI M ,  I  )  .FOR  EACH  SHOP  M 
LET  NMHPSd)  »  NMHPS(I)*e.O 
30  LOOP 
100  RETURN 
END 


SUBROUTINE  TERM U * J . L # T » 

LET  TIME  •  T 

LET  SOMEN*  NMENA(I)*«2 

ACC  NMENAI I ) .SOMEN  INTO  :meNA ( I )  .CSMEN ( I )  ALL  SINCE  TMENA ( I )  . POST 
C  FLOATF(J) 

IF  (J)  LS  (M.NMENIIl)*  LET  MNMENI  I  )  =  J 
IF  (K)  EQ  ( 1) ♦  00  TO  100 
LET  SOMEM  *  N0MEM(L)**2 
LET  SOMNM  »  N0MNMSL)**2 

ACC  NOMEMID*  SQMEM  into  CNMEMID*  CSMEMIl)  all  since  TNMEM(L). 
CADD  -1.0 


c 


c 

X 

) 

X 

X 

X 

J 


£' 


« 


L 


X  X 


ACC  NOMNM(L)»  SQMNM  INTO  CNMNM(L)t  CSMNM(L)  ALL  SINCE  TNMNMID# 
CADD  1.0 

100  return 
END 


SUBROUTINE  USEMN(  1 9  J»IC*L»T  ) 

LET  TIME  *  T 

LET  SQREP  «  NOREP ()C)*»2 

ACC  NQREP(K) fSQREP  INTO  CQREP ( K ) »CSREP ( K)  ALL  SINCE  TQREP ( 1C) .POST 
C  FLOATF(J) 

IF  (J)  GR  (MXREPIO).  LET  MXREP(IC)  *  J 
10  IF(L)  GRlMXMLMilC) )  9  LET  MXMLM(K)  «  L 
IF  (L)  GR{MAXLM(X) ) 9  LET  MAXLMOC)  *  L 
RETURN 
END 


SUBROUTINE  USEP2 ( I . J.K .L . T ) 

IF  (L)  NE  (0).  GO  TO  100 
LET  SQMLP  *  NMALP(I)»»2 

ACC  NMALP(I)*  SQMLP  INTO  CNMLP  (  I )  .CSMLP  ( I )  ALL  SINCE  TNMl^ID.ADD 
C-1 .0 

IF  (J)  GR  ;mXMLP(I))»  let  MXMLP(I)  a  J 
100  RETURN 
END 


REPORT 

UTI2R(  1 9 

N) 

utilization  and 

QUEUE 

SHOP 

NUMBER 

UTILIZATION 

AVG.  MEN  available 

STD.  D 

* 

M 

UTILIM' 

MEMEN(M) 

X  FOR  EACH  SHOP  M 

END 


REPORT  - 
N 

EVIAT !0N 

# ,  ##♦ 

SOMEN' M ) 


DAY  *  SHIFT  # 

I 

number  of  malfunctions  WAITING 

MEAN  STD. DEV.  MAXIMUM 

*,»*  #,#*  »• 

MNQ(MJ  SDQIMl  MAXLM(M) 


I  3 


X 


I 


SUBROUTINE  wTSORM  t  J»T%L,T  I 

let  time  «  T 

IF  <J)  EQ  lU.GC  Tu  10 

ACC  l.U  INTO  CIASII  *CLSn))  SINCE  TCLAS(I) 
IF (LI  NE(2) »  GO  TO  5 

let  cls( n  *  6 

so  TO  8 

LET  CLSd)  *  4 

IF  »P}  EQ  (05 ,GO  TO  ivU 

LET  NUMLS(L)  ^  Nu.ML  S  ( L  ;  *  I 

let  LATEHrD  =  lAIlH(L)  ^  DtCHRIP) 

GC  TO  100 

ACC  1-0  INTO  CLAS ( I tCLSI  I  >  )  SINCE  TClASIP 

lE”  cls( n  ^  a 

RETURN 

END 


FUNCTION  ZERO (CARO) 

MANES  A  PANNED  SET  A  FIFO  SET 

LET  ZERO  *  w 

RETURN 

END 


